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This publication presents the complete programming 
specifications for the Model 20 Card Report Program 
Generator (RPG) -- a problem-oriented programming 
language. 

The reader is assumed to have some understanding of 
punched-card data processing, but need not have any 
experience in programming or electronic data processing 
methods . 

This manual also includes performance specifications, a 
list of machine features and units used by the program, 
numerous illustrations, four complete programming 
examples, and appendixes that amplify explanations and 
provide helpful programming hints. 
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PREFACE 



This publication describes the Report Pro- 
gram Generator (RPG) for programming 
punched- card data processing applications 
on an IBM System/360 Model 20 computer. 
RPG is an easy-to-use programming 
language that does not require any prior 
programming or data processing experience, 
In conjunction with the Model 20 , RPG 
combines into an integrated operation the 
functions performed separately by the 
following IBM unit record equipment: 

Reproducing punches 

Collators 

Printers 

Summary punches 

Interpreters 

Calculators. 

The user is expected to be primarily 
familiar with his applications and his 
Model 20, rather than with the technical 
aspects of machine-oriented programming 
languages. Experience with unit record 
or data processing systems equipment and 
procedures will be helpful, but is not 
a prerequisite to an understanding, or 
utilization, of RPG. 



However, familiarity with the concepts of 
punched-card records and procedures is 
assumed: programming by any language and 
for any data processing system always pre- 
supposes problem definition, and can do no 
more than instruct the system to execute 
the data processing steps previously 
planned by the user. 



This manual contains the information 
necessary for programming jobs for the 
Model 20 with the RPG language for punched 
cards. It is intended as a reference text, 
Extensive explanatory and illustrative 
material, as well as programming tips and 
technical data, is also included to mini- 
mize the need to consult additional 
sources . 

For a list of associated publications 
and their abstracts, see IBM System/360 
Model 20 Bibliography , Order No. GA26-3565, 
Readers without previous data processing 
systems experience may find particularly 
useful information in IBM System/360 Model 
20, Introduction and System Summary , Order 
No. GA26-5889. 
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PROGRAMMING 

Programming consists essentially of writing 
instructions that can be understood by a 
data processing system. Before programming 
is attempted, the data processing rroblem 
must have been analyzed, and the step-by- 
step procedural requirements determined. 
The nature of the source data (input) , the 
manipulations (calculations) to be per- 
formed on it, and the nature and form of 
the results (output) desired must have been 
defined. 



THE NATURE OF RPG 

The Report Program Generator (RPG) utilizes 
the abilities of the Model 20 system itself 
to convert data processing instructions 
written in natural quasi-English (EPG- 
language) statements to the language in 
which the central processing unit accepts 
its instructions. In many instances, one 
RPG- language statement will automatically 
be translated to several machine-language 
instructions. 



The programmer usi 
ments in a sequence t 
once the problem has 
procedure determined, 
largely consist of te 
himself may coin, or 
mnemonics. The user 
relatively simple rul 
familiar with machine 
"programming" in the 



ng RPG writes state- 
hat comes naturally 
been defined and the 

The expressions used 
rms the programmer 
of easily recognized 
must merely follow 
es. He need not be 
language, nor with 
technical sense. 



OTHER PROGRAMMING LANGUAGES 

The EPG language is easy to learn and to 
a PPlj/ and capable of handling almost every 
punched-card job requirement for the IBM 
System/360 Model 20. However, IBM current- 
ly provides two additional programming lan- 
guages to satisfy special conditions: 

1 . Basic Assembler.Langua ge (B.. A. L.) 

(Refer to SRL publication IBM, System/ 
360, Model,,. 2,0 , i Gard -ii Programming Support.,. 
Basic Assembler., Language , Order 
No. GC26-3602. 

B.A.L. provides for programming in the 
symbolic equivalent of actual Model 20 
machine language. Effective utiliza- 
tion of B.A.L. requires some familiari- 
ty with the actual machine language 
(see IBM System/360 Model 20 Functional 
Characteristics , Order No.~GA26-5847) , 



and involves considerable experience 
with programming for electronic data 
processing systems as well as the com- 
ponent units of the system and their 
time relationships. 



As an adjunct to B.A.I., 
provides an Input/Output Co 
(IOCS) for Model 20 card sy 
System/360_Model_20_Card_Pr 
S upport £ Input ZQutput_Contr 
Order No. GC26-3603) . IOCS 
tested input/output routine 
grammers can use by means o 
instructions, to control th 
output of data by programs 
the Basic Assembler Languag 



IBM also 
ntrol System 
stems (IBM 
ogramming 
ol System , 

provides 
s that pro- 
f macro- 
e input and 
written in 
e . 



The vast majority of Model 20 users 
will never have to concern themselves 
with B.A.L. or IOCS, because the flexi- 
bility of the EPG and PCU (see below) 
will allow them to accomplish their 
tasks with these convenient and easy- 
to-learn languages. In a few installa- 
tions, there may be occasional unusual 
requirements which cannot be directly 
satisfied by EPG or ECU. Frequently, a 
minor modification of the procedure 
will then permit EPG to handle the jot; 
but there may be a few problems that 
are best solved by B.A.L., with or 
without IOCS. Even then, it will often 
be practical to write most of the pro- 
gram in RPG, merely inserting a brief 
B.A.L. routine to overcome the particu- 
lar limitation. This approach is 
briefly covered in this manual. 

B.A.L. can, if efficiently applied, 
sometimes reduce the amount of core 
storage required for a program and may, 
en occasion, improve throughput. Bow- 
ever, the much greater effort called 
for to program in E. A. L. , and to debug 
the program, is usually out of propor- 
tion to the minor benefits derived. 

2 • Punched-Ca rd, J tility_ Programs {PCU) 

(Refer to SRL publication IBM, System/ 
3 6,0_ Mo del„20j„Car deprogramming Support, 
Pu n c h e d- C ar d_Ut i li ty__ Pr ogr a m s , rd e r 
No. GC26-3601.) 

The PCU performs on Model 20 the equi- 
valent of IBM unit record machine func- 
tions. No knowledge whatsoever of pro- 
gramming is required. The user desig- 
nates his job requirements by simple 
entries in pre-printed boxes— many of 
them multiple- choice pre-coded — on 
self-explanatory specification sheets 



Note : Sections delineated by upper- and 
lower-left right-angle brackets contain 



supplementary details—often of a technical 
nature. 
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from which matching specification cards 
are punched. For example, only a 
single specification card (in conjunc- 
tion with the IBM-supplied program 
deck) is needed to perform a collating 
operation. The specification sheets 
correspond, in effect, to the control 
panel of a unit record machine, but are 
simpler and quicker to complete than 
plugboard wiring. 

The PCO programs provide most of the 
functions of IBM collators, reprodu- 
cers, gangpunches, summary punches, 
accounting machines, interpreters, and 
sorters (the latter practical with PCTJ 
only for large sort fields) . 

The PCUs are best used 

• For jobs that correspond to unit 
record functions; i.e., where little 
is to be gained from the "systems" 
approach of processing an integrated 
series of jobs. For instance: 

To list and talance a keypunched 

deck of cards; 
To cross-foot fields in the same 

card; 
To seguence-check a master file; 
To interpret a keypunched deck; 
To reproduce a file of cards. 

A few of the applications that are 
easy to perform with PCU, are diffi- 
cult or impossible with RPG. For 
example: 

Selection of the last card of 

each control group; 
Selection of single-card groups; 
Sorting . 

• For one-time jots, where it may not 
be worthwhile to design an inte- 
grated systems procedure; i.e., the 
"quick and dirty" solution. 

• To continue getting the work out, 
during switch-over from unit record 
equipment to Model 20, for those 
jobs which the user has not yet had 
time to redesign and program to take 
full advantage of his Model 20. 



RPG FUNCTIONS AND CHARACTERISTICS 

PUREOSE OF RPG 

RPG provides a quick and easy method for 
writing programs to accomplish most commer- 
cial data processing jobs with the IBM 
System/360 Model 20, taking full advantage 
of the Model 20 system's potential. It 
combines the attributes of flexibility, 
capability, and efficiency, with simplicity 



and absence of any requirement for prior 
programming or data processing experience. 

Among the full spectrum of Model 20 data 
processing that can be programmed with RPG 
are the following common functions that can 
be performed individually or in any 
combination: 

• Report Writing 

Listings and group-printed reports 
containing up to nine control and 
total levels, plus a final total. 

• Summary Punching 

Op to nine levels of control, and 
final total level. 

• File Matching and/or Merging 

With or without selection of cards. 

• Card selection 

Based on card type and/or results of 
calculations. 

• Gangpunching 

Direct, offset, interspersed, 
major-minor. 

• Reproducing 

• Card Document Printing (Interpreting) 

Feature available only for the 2560 
MFCM, Model A1 . 

• Calculating 

Add, subtract, multiply, divide, 
cross- foot, compare. 

• Table Look-up 



STEPS. IN UTILIZING RPG 

1. Problem definition 

The nature of the source data, the pro- 
cessing to be performed upon it, and 
the type and format of the resulting 
output data must be determined. This 
encompasses such details as card-type 
identification codes, source and output 
card fields, calculations to be per- 
formed on the data, types of report 
totals desired, and arrangement of the 
data on a printed report. Printer 
Spacing Charts, IBM Form X24-3115, can 
facilitate the report layout (see 
Figure 1) . 

2. Programming 

Ihe programmer writes RPG specifica- 
tions on preprinted IBM forms. These 
forms guide the entries into the appro- 
priate relative positions. The entries 
define his input and output data, the 
operations to be performed on the data, 
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Figure 1. Printer Spacing Chart 
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and the input and output devices to be 
utilized. 

The programmer is given wide lati- 
tude in the assignment of symbolic 
names to data files and fields, and 
most of the EPG-language operation 
codes are mnemonic. Much of the cod- 
ing, therefore, approaches the use of 
meaningful English, combined with accu- 
stomed use of card-column numbers and 
print positions. 

3. Punching Specification Cards 

The program codes previously recorded 
on the specification sheets are key- 
punched, one card per specification 
line. The positions on each line of a 
specification sheet correspond to the 
appropriate columns in the specifica- 
tion cards. 

4. Generating the Program 

The specification cards now become the 
program "source deck". The source deck 
and the IBM-supplied EPG Generator deck 
are then read into the System/360 Model 
20. Based on the program contained in 



the Generator deck, the central proces- 
sing unit (CPU) of the Model 20 acts 
upon the specifications in the source 
deck to generate a machine language 
"object program." The object program 
contains all the necessary instructions 
to perform the job as designated by the 
EPG programmer on the specifications 
sheets. At the conclusion of the 
generation run, the object program is 
in core storage, ready for execution. 
The user has the option of also having 
the object program punched into cards 
so that, the next time the same job is 
to be run, the object program is ready 
to be loaded without the need to gener- 
ate it again with the EPG. 



5. Eata card files are placed in appropri- 
ate card feeds, forms and carriage con- 
trol tape are inserted in the printer, 
and the job is ready to run. 



Figure 2 is a graphic representation of 
these steps. 
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MACHINE REQUIREMENTS 

Igput^ ^agLQH&JUt Files (See also "File," 
under jDef inition_of _ Ter ms , telow.) 

Input Files 

The Model 20 card RPG can handle a maximum 
of three input files — one per card reading 
device attached to the system. The poss- 
ible input devices are: 



IEM 2560 MFCM 

Hopper 1 

IBM 2560 MFCM 

Hopper 2 

IEM 2501 Card 
Reader 



or 

IBM 252 Card 

Read-Punch 
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•~l 

X 



Object 
Program 
Deck 






Card 
Output 






Figure 2. BEG Operations 

Output_Fil.es 

Dp to five output files can be used — one 
per card punch device attached to the sys- 
tem, and one or two for the printer. The 
possible output devices are: 



Note: Each device listed above for both 
input and output files may serve to treat a 
single file as both input and output. That 
file is then designated- a "combined" file. 
The MFCM permits cards from either or both 
hoppers to be read and/or punched and/or 
card-printed (interpreted) . (The card 
document-printing special feature is avail- 
able only for the 2560 MFCM, Model A1.) 

Figure 3 is a schematic presentation of 
possible system configurations. 



Note: With the 
Submodel 3 or 4, 
the 22 03 Printer 
devices permitte 
Model 20, Submod 
I/O devices may 
MFCM, Model A1 , 
7, or N1, or the 
For details rega 
features require 
dix B . 



IBM System/360 Model 20, 
the 2560 MFCM Model A2 and 
Model A2 are the only I/O 
d. If an IBM System/360 
el 5 is used, the following 
be attached: the 2560 
the 1403 Printer, Model 2, 

2203 Printer, Model A1. 
rding machine units and 
d and supported, see &ppen- 



2560 Multi- 
Function Card 
Machine 



2520 Card 
Read/Punch 



2520 Card 
Punch 



Storage 
4096 Bytes or 
8192 Bytes or 
12288 Bytes or 
16384 Bytes 



2020 

CENTRAL 
PROCESSING 
UNIT 




2501 

Card Reader 



1442 
Card Punch 



Figure 3. 



System/360 Model 20: Card RPG 
System Configurations 
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o 



IBM 2560 MFCM 

Hopper 1 
IBM 2560 MFCM 

Hopper 2 
IBM 1442 Card 

Punch 

IBM 2203 Printer, 

Lower Feed 
ISM 2203 Printer, 

Upper Feed 



or 

IBM 2520 Card Punch 
or Read-Punch 



or IEM 22C3 Printer 

(standard carriage) 

or IBM 14C3 Printer 



PERFORMANCE CHARACTERISTICS 

The Model 20 can perform input, output, and 
internal processing operations concurrent- 
ly. The RPG makes optimum use of this 
capability. Figure 4 shows which Model 20 
operations can be carried out concurrently. 
In the case of concurrent card- punching and 
printing on the MFCM Model A1, this refers 



o 
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to the printing on one card while the next 
card is being punched. 

Details for estimating core storage 
requirements and timing are given in Appen- 
dix A . 
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i - t - ■ - -r- - "- — — -"-' 1 

| | | POSSIBLE | 
| DEVICE | OPERATION | COMBINATIONS | 


1 1 1 i i i ■ i i ■ i i i i i i 1 
| 2560 MFCM | Read 1 + 1 + 1 1 1 1 1 1 1 1 1 1 1 I 1 
| | Punch 1 J |+1 |+1 J 1 1 + j | 1 1 J | 
1 1 Card Print 1 1 I 1 + 1 + 1 1 I 1 1 1 1 1 1 + 1 


1 2520 Card Read-Punch | Read 1 1 1 I 1 1 +1 +1 +1 1 ] 1 1 1 1 
| | Punch 1 1 1 1 | | | 1+1 1 | I | + j | 
i i i i i i i i i i i i i i i i i 


i l i I I 1 i 1 I I 1 i 1 1 i I i 

| 2520 Card Punch \ Punch 1 1 1 1 1 1 1 1 1 1 1 +1 +1 1 1 


| 1442 Card Punch | Punch |+l 1 1 I I 1+1+1 1+1 1+1 1+1 
l i i i i i i i i i i i i i i i i 


l t iiJiiii iiiiiiii 

1 2501 Card Reader | Read I I I 1 I +1 I I 1 + 1 +1 +1 + l +1 +1 


| 2203 or 1403 Printer l Print | + | + I + 1+ 1 + | + J + J + 1 + J + | + J + 1 + 1 + | 
i i i i i i t i i i i i i i i i i 


i l i i i i i 1 i i i i i i i i i 
| 2020 CPU | Processing 1 +| +1 +1 +1 +| +1 +| +1 +1 +1 +1 +1 +1 +1 



Note : Each vertical column shows a set of operations that may be 
carried out concurrently. 

In the case of concurrent card-punching and printing on 
the MFCM Model A1, this refers to the printing of one card 
while the next card is being punched. 

Figure 4. System/360 Model 20 Concurrent Processing Operations 
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OR GANIZATION O F THIS PU BLICATION 

A summary of the functions of each of the 
five types of RPG specifications introduces 
the main portion of the manual. This 
abbreviated summary appears here only to 
facilitate relating subsequent sections to 
the specifications forms. 



The specifications-types summary is fol- 
lowed by an example of specifications writ- 
ten for an RPG program, annotated with 
broadly-generalized explanations of the 
entries. The purpose of the section is 
merely to offer the novice an illustration 
of what a program written for RPG looks 
like. Full details are given in subsequent 
sections, which also incorporate any 
explanations given in the introductory 
example. This initial example does not 
fully cover the significance of, or limita- 
tions on, each entry. It should not be 
used as a reference for precise knowledge. 
Readers familiar with the concepts of RPG 
can bypass it. 



The main portion of the manual is 
devoted to the detailed information needed 
by the user to write programs for his jobs 
that can then be converted to machine lan- 
guage by the Report Program Generator. 

The information is presented in the fol- 
lowing sequence: 



1 . Definition of recurring terminology 

2. Graphic presentation and discussion of 
program logic flow 

3. Indicators 

4. Control fields 

5. Matching of files 

6. Sequence checking 

7. Possible entries for every field of 
each specifications sheet (or card) , 
including normal and unusual functions 
of each entry; warnings, where appro- 
priate, about improper coding; inters- 
persed illustrations for clarification 
of possibly abstruse points. 

Limitations of the RPG Program are 
explicitly stated, where appropriate and 
not obvious. 

Lengthy descriptions of rare, yet valid, 
uses of a code, or a specifications field, 
are marked off by corner brackets, so as 
not to detract from emphasis on the prin- 
cipal topic. It is suggested that the 
reader unfamiliar with RPG bypass these 
passages until he has a clear understanding 
of the basics. Where extensive or technic- 
al supplementary explanations are deemed of 
value only in exceptional situations and to 
a small segment of users, they have been 
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relegated to an appendix when this was 
practical. 



Three complete and realistic application 
examples are included, in addition to the 
Introductory Programming Example, to 
illustrate a large proportion of the pro- 
gram functions and codes. Each specifica- 
tion is explained. 

The examples are: 

1. Sales commission calculation and 
report. 

2. An order-entry pre-billing application/ 
with updating of the inventory file 
prior to invoicing. 

3. The subsequent invoicing operation, 
with creation of accounts receivable 
invoice summary cards. Three lines of 
customer name and address printed from 
a single card, with ship-to name and 
address printed parallel from another 
card. A simple table look-up operation 
is included. 

A number of technical appendixes follow 
(see Content s) . Included is an appendix 
containing programming tips, and a summary 
of RPG specifications sheet entries laid 
out for convenient use if removed from the 
manual. In the appendixes, separate series 
of figure numbers have been assigned. Each 
figure number is preceded by the letter of 
the relevant appendix. This has been done 
to simplify subsequent additions and dele- 
tions without the necessity of making 
changes throughout the rest of the manual. 
The index, which concludes the manual, 
attempts to reference every informative 
mention of a relevant subject. 



FUNCTION OF RPG SPECIFI CATIONS SHEETS AND 
CARDS — SUMMARY 

The RPG specifications sheets supplied by 
IBM (in pads) represent a convenient means 
for the programmer to record the informa- 
tion (instructions) to be keypunched as 
input to the RPG program, so that it will 
generate the appropriate machine-language 
program to perform the desired job. 

The format and column headings of these 
sheets assist in guiding the programmer's 
entries. The forms are so designed that 
one specification card is to be punched per 
line, with each column on the sheet corres- 
ponding to a card column, in the same 
order. Card supplies with the appropriate 
RPG specification fields delineated can be 
purchased from IBM. 



The RPG specifications sheets can also 
serve as documentation of the source 
program. 



o 
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In addition to the punched specification 
cards, the user must supply an RPG Control 
Card (Card H) . This control card must be 
the first card of the source program. The 
format of the RPG control card is described 
in Appendix I. The control card specifies: 

1. Core storage capacities of the systems 
used to generate and to execute the 
object program 

2. Whether, and on which machine type, the 
object program is to be punched 

3. Whether a generation listing is to be 
printed, and whether minor — as well as 
major — source deck errors are to cause 
a halt during generation of the object 
program 

4. A typical MFCM input and output card 
stacking sequences 

5. Additional IBM 2501 input core buffer 
storage, if desired 

6. The number of print positions utilized 
by the object program 

7. The format of any Sterling-currency 
fields (British monetary system) 

8. Substitution of decimal comma for deci- 
mal point in numeric literals (i.e. , 
European notation) . 

Types o f Specifications Sheets and Cards 

File Description Specifications (Required) 
{Sheets: Form X24-3347. Card electro- 
plate: Form 33 47) 

Used to assign a symbolic name and, when 
appropriate, card sequence (ascending or 
descending) to each file; to associate each 
file name with a specific input and/or out- 
put device; and to define whether the file 
is to serve as input, as output, or both. 
For multiple input files, entries on this 
form also establish which file or files 
control end-of-job routines. 



o 
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I npu t specif ications (Required) 
(Sheets: Form X24- 3350. Card electro- 
plate: Form 3350) . 

Used to describe the input files: identi- 
fication of card types within each file; 
stacker selection of cards, based on card 
type; specification of card-type sequence 
within each group of a file; assignment of 
symbolic names and decimal positions to 
input card fields; "tagging" of (i.e., set- 
ting indicators for) card fields with posi- 
tive, negative, or zero/blank contents; as- 
signment of control fields, and of fieldsto 
be matched between cards in different input 
files; file sequence-check instructions. 
For multiple input files, the order of pre- 
cedence of the files is also established by 
the sequence in which the files are entered 
on this form. 

Calculation Specifications (Optional) 
(Sheets: Form X24-3351. Card electro- 
plate: Form 3351) 

Used to describe the processing (calculat- 
ing, comparing, etc.) to be performed on 
the data. 

File Extension Specifications (Optional) 
(Sheets: Form X2U-3348. Card electro- 
plate: Form 3348) 

Needed to describe the tables to be used 
with the Table-Lookup feature. Unless the 
Table-Lookup (LOKUP) instruction is used in 
the program, the File Extension form is not 
used. 



Used to specify the arrangement of the data 
on printed reports and/or in output cards. 
Also includes such functions as editing, 
stacker selection of output- or combined- 
file cards, and forms-carriage spacing and 
skipping. 

Note: A limited number of applications can 
be performed with only File Description and 
Input Specifications. For example: 
sequence checks, and/or stacker selection 
based on card type. 



PROGRA M COMPATIBILITY 

All functions that can be specified in the 
Model 20 card RPG can also be specified in 
other IBM System/360 Report Program Genera- 
tors provided that an adequate I/O confi- 
guration is available. 

Specifications which are presently 
unique to the Model 20 RPG are those sup- 
porting the IBM 2560 Multi-Function Card 
Machine (card printing, on the MFCM Model 
A1, and collator-type operations) and dual- 
feed carriage feature. 

For further details, refer to the rele- 
vant SRL publication for other versions of 
IBM System/360. 



MACHINE UNITS AND FEATURES REQUIRED AND 
SUPPORTED 



^ M 



Output-Format Specifications (Optional) 
(Sheets: Form X24-3352. Card electro- 
plate: Form 3352) 



Appendix B lists the machine units and fea- 
tures required and supported for the Model 
20 card RPG. 
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INTRODUCTORY PROGRAM EXAMPLE 



O 



This chapter can be bypassed by users fami- 
liar with the concept of RPG. Its sole 
purpose is to give the novice a general 
insight into the approach to solving a sim- 
plified problem with RPG specifications. 
The explanations given are in broad terms 
only and are repeated in greater depth in 
subseguent sections. The example is not 
suitable as a reference for a full unde- 
rstanding of the specifications employed-- 
while all specifications entries made here 
are valid, greater detail is necessary 
before the codes can be applied in all 
other circumstances. 



THE JOB REQUI REM ENTS 
Given 

1. Customer Name cards—one per customer. 

Name, in cols. 1-20; address in cols. 

21-40 and 41-60 

Salesman No. , in cols. 73-74 

Account No., in cols. 75-79 

Card identification (3-8-9) , in col. 

80 

2. Daily Sales Summary cards — at least one 
per customer 

Account No., in cols. 1-5 

Amount, in cols. 7-13. (Cols. 12-13 

are decimal positions.) 

X-punch (11-punch) over col. 13 for 

credit (returns) 

Gross profit percent for product 

group, in cols. 16-17 

Date, in cols. 75-79 (day, month, 

last digit of year) 

Card identification (1) , in col. 80 

— may have 11- or 12-overpunch. 



lesults Desired 



Month and year only (slash between) 
— print on first detail line of each 
account. Eliminate leading zero in 
month only. 

Account No. — print only from first 
card for each account, and on forms 
overflow. Do not eliminate zeros. 

Customer Name — print from first 
card of each account, on same line as 
first detail card. 

Amount — list, but positive and 
negative amounts in separate columns. 
Eliminate leading zeros to decimal. 
Edit with comma and decimal point. 
Do not print sign for negative 
amounts. 

Amount--Net total by account, and 
grand total at end of report, with CR 
if negative. Eliminate leading zeros 
to decimal point. 

Gross profit — Total by account and 
grand total at end of report, with 
minus sign if negative. Eliminate 
leading zeros to decimal point. 

Amount of returns as percent of 
sales amount, for final total only. 
Eliminate first two leading zeros. 
Suppress line if positive sales are 
z ero . 

Print suitable headings over 
columns on first page. 

a. Select negative-amount summary 
cards to a different stacker. 

b. Separate Customer Name cards from 
Daily Sales Summary cards. 

Stop program if first card of control 
group is not Customer Name card. 







1. Punch Monthly Summary cards — one per 
account 

Account No., in cols. 1-5 

Total amount, in cols. 6-13 

X-punch (11-punch) over col. 13 if 

negative 

Total gross profit, in cols. 14-21 

Salesman No., in cols. 73-74 

Date (month and year only) , in cols. 

77-79 

Card identification (9) # in col. 80. 

2. Printed Report 



THE RPG SPECIFICATIONS 

Figures 5A-5F show the printer layout and 
RPG specifications needed to produce the 
printed report shown in Fig. 5G. Explana- 
tions of the entries follow. Of necessity 
— since this example was deliberately 
inserted ahead of treatment of specifica- 
tions entries — the discussion deals with 
items not yet covered, but will serve to 
illustrate the general approach. Obvious- 
ly, with a language as flexible as RPG, the 
same results could be achieved by several 
alternate methods. 
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Figure 5A. Introductory Program Example, Printer Spacing Chart 
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Figure 5E. Introductory Program Example, File Description Specifications 
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Figure 5C. Introductory Program Example, Input Specifications 
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Figure 5B. Introductory Program Example, Calculation Specifications 
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Figure 5E. Introductory Program Example, Output-Format Specifications (Part I of II) 
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Figure 5F. Introductory Program Example, Output-Format Specifications (Part II of II) 
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Figure 5G. Introductory Program Example, Printed Report 
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File Description Specif icaticns— Figure 5B 

Lin e 1 arbitrarily assigns the name 
SLSDETL tc the input (I) data file consist- 
ing of the Customer Name cards and Daily 
Sales Summary cards. The DEVICE entry spe- 
cifies that this file will be placed in 
hopper 1 of the IBM 2560 MFCM. 

Line 02 assigns the file name SLSSUMRY to 
the deck of blank cards, tc be placed in 
hopper 2 of the MFCM, which will become the 
Monthly Summary output (C) cards. 

Line 3 specifies that printer output will 
be referred to by the file name REPORT. 

These entries serve two fcasic purposes: 

1. To associate a specific input and/or 
output unit with a file name that will 
subsequently be referenced in the pro- 
gram; and 

2. To specify whether a given file is tc 
serve as input for data,, output, or 
both. 

Input Specifications—Figure, 5C 

The input file — labelled SLSDETL in the 
File Description Specifications— consists 
of two types of cards. 

Li ne 1 of the Input Specifications arbi- 
trarily assigns "Indicator C1" (cols. 
19-20 in the spe'cif ications) to the Custom- 
er Name card. The Customer Name card is 
identified by the punches 3-8-9 (a common 
unit record MLP or MIR code) in col. 80 
(see specifications entries in cols. 
23-24, 26, 27) . 

Line 05 assigns indicator 06 to the Daily 
Sales Summary card, identified by digit 1 
in col. 80. D (digit) , rather than C 
(character), was entered in col. 26, to 
eliminate a possible 11- or 12-overpunch in 
col. 80 from affecting the comparison with 
digit 1. 
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conveniently be associated with "Customer 
Name card", or "not Customer Name card", as 
desired. 

When stacker selection is not specified, 
cards enter the normal stacker for the par- 
ticular hopper of the I/O unit used. For 
hopper 1 of the MFCM, this is stacker 1. 
The card type identified by indicator C6 
therefore enters stacker 1 . The card type 
with indicator 01 (Customer Name card) is 
directed to stacker 2 by the entry in col. 
42. 

The entries in cols. 15-16 specify that 
the proper order of card types is Customer 
Name card (01 in cols. 15-16) followed by 
Daily Sales Summary card (s) (02 in cols. 
15-16),' which in turn are followed by the 
next Customer Name card. The 1 in col. 17 
for the Customer Name card specifies that 
there must be exactly one such card before 
the Daily Sales Summary card. The N in 
col. 17 for the Daily Sales Summary card 
specifies that there must be at least one 
such card, but that any quantity of such 
cards greater than is correct. If the 
card-type sequence does net conform to 
these specifications, an error stop occurs. 
Note, however, that the absence of a Cus- 
tomer Name card would not be detected—this 
would he treated as more than one Daily 
Sales Summary card. This contingency is 
guarded against by the specifications on 
line C6 of the Calculation Specifications. 
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Indicator 01, in this example, will be 
on when a card with 3-8-S in ccl. 80 (Cus- 
tomer Name card) is being processed. 
Execution of certain instructions can then 
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The entry in cols. 69-70 makes the sta- 
tus of indicator 10 dependent on the NAME 
field of each Customer Name card (Resulting 
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Indicator 01). Since that field is never 
blank in that card, indicatcr 10 will turn 
off each time a Customer Name card is pro- 
cessed. (It would be turned on by a blank 
NAME field.) In this program example, 
indicator 10 is turned en by another 
method, described later. 

The requirements of the jcb call fcr 
printing the amount of returns (negative 
sales amounts) in a separate column. An 
indicator is needed to identify such cases. 
Indicator 07 (in cols. 67-68) will turn on 
when a Daily Sales Summary card with a 
negative amount is being processed, and 
will be off when the amount is positive or 
zero. 

Calculation Specificaticns--Fiqure 5D 
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Line 01. Executed only when processing 
card type 06 (Daily Sales Summary card) , 
because the indicator for that card type is 
desiqnated as a condition. 



The contents of the AMOUNT field 
added (Operation code ADD) to the cc 
of TOTAMT field, and the result is s 
as the new contents of TOTAMT field. 
TOTAMT field has net been previously 
specified; it is created by the entr 
Result Field. (Field Length is spec 
as 8 digits, of which 2 are decimal 
positions — the same number of decim 
in the scurce (AMOUNT) field. If th 
number of decimals specified here we 
be different frcm* those in the scurc 
field, alignment would be automatic, 
is the normal method for accumulatin 
detail-card amounts for grcup totals 
object-program execution begins, the 
may assume that the fields are all s 
zero. Thereafter, each detail card 
is algebraically added to the previo 
total in the TOTAMT field, because T 
is the addend (Factor 2) and the new 
replaces the former TOTAMT contents. 
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Negative amounts (11-punch ever low- 
order position) are automatically sub- 
tracted. An indicator (C8) is specified 
for the identification of a negative amount 



in the TCTAMT field, so that summary cards 
(one punched at each ccntrcl break) with a 
negative sales amount can be selected to a 
separate stacker. The status of indicator 
08 can change after each algebraic addi- 
tion. Its status is, however, only used in 
this example at the end of a control group, 
when it correctly reflects the sign of the 
total. 

Line 02. The amount (with 2 decimal posi- 
tions) in each detail card is algebraically 
multiplied by the gross profit percentage 

(2 decimal positions only, to transform 
percentage to ratio) for that product 
group. The resulting amount of profit 

(GRSPRF) contains four decimals, of which 
only two are desired. Specifying "2" auto- 
matically causes dropping of the two excess 
low-order positions. The "H" in col. 53 
causes half-adjustment before the third 
decimal is dropped. The previous contents 
of the Result Field are replaced each time 
by the new result. 

Line 03. The latest gross profit amount 
(GRSPRF) is algebraically added to the pre- 
vious cumulation (which is zero if this is 
the first detail card) to provide a total 
for the ccntrcl grcup. 

Lines, 04 and 05. These entries provide the 
final total of returns (negative sales) and 
of positive sales, so that the ratio of 
returns (FTOTRT) to positive sales (FTOTSL) 
may be calculated before the final total is 
printed. 

Line 05 causes adding cf the amount from 
each detail card (indicator 06) to FTOTSL-- 
provided AMOUNT is positive (indicator 07 
not on = N07 in cols. 12-14), as deter- 
mined by indicator 07 in the Input Specifi- 
cations. Indicator 09 is set on for zero 
results — see line 10 for its application. 

Line 04 similarly provides for cumulat- 
ing FTOTRT for negative amounts (indicator 
07 on). Since a positive total is desired, 
and all amounts for this line--by 
definition — are negative, these negative 
amounts are subtracted from FTOTRT. (Sub- 
tracting a negative amount yields positive 
result.) This entry also illustrates abso- 
lute addition. 

Line_06 j: _ Indicator H1 is set on — which 
will cause the system to stop after proces- 
sing of the new card — if a control break 
(change in contents cf ACCTNO field) occurs 
(L1 on) and the new card is not a Customer 
Name card (N01) . 

Line 07. When a control break has occurred 
(L1 on), the total amount (TOTAMT), accumu- 
lated above (line C1) algebraically for 
each ccntrcl group, is added algebraically 
to FTOTAM (which is zero in the case of 
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be used interchangeably.) T in col. 15 
specifies total-time output. 



Line_C8 i Similar to line 07, but cumulates 
final total cf gross profit (FTOTPR) , based 
en group total from line C3. 
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Line 10. Before the final total is 
printed, the specification on this line 
causes the calculation of the ratio of 
total returns (RTRDVD, based on FTOTRT in 
line 04 and shifted left in line C9) to 
total positive sales. 

The calculation is enly performed after 
processing of the last data card (LR is 
then on) , and provided there was a positive 
sales total (N09) . Indicator 09 is set en 
in line 05 for a zero final total of posi- 
tive sales. Conditioning the instruction 
on N09 is required because a divisor must 
not be zero. 

A dividend (RTRDVD) with 5 decimal posi- 
tions, and a divisor with 2, yield a quo- 
tient with 3 decimal positions (col. 52). 
The H in col. 53 causes half-adjustment of 
an extra decimal position (automatically 
provided for by the RPG Prcgram) before it 
is dropped. 

Output-Format, Specif icaticns--Figures 5E 
and 5F 

Printed Report 

The file name REPORT was designated an 
output file, and associated with the 
printer, in the File Description 
Specif icatiens. Thus, its entry here 
thereby calls for printer cutput for all 
specifications below, until a different 
file name appears. H (heading) cr D 
(detail) in column 15 specifies that the 
ensuing entries apply to detail- . (rather 
than total-) time processing. (H and E may 
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Specif ication_lines_ 02-07 specify the head- 
ing data to be printed. The data within 
apostrophes is printed as shown (without 
the apostrophes, which merely identify the 
entries as constants) . The numbers in 
cols. 41-43 desiqnate the rightmost print 
positions for the respective constants to 
be printed. 

Spec ific ation lines, 09— J 0,. The job 
requirements call for printing Account No. 
(ACCTNO) on the same line as the first 
detail card of a ccntrcl qrcup, and to 
repeat the Account No. as the only identi- 
fication on overflow pages. The Account 
No. is to be printed with its rightmost 
position in print position 12 (see entry in 
cols. 4 1-43). Indicator CF in cols. 24-25 
confines this output to overflow time. 

Eecause ACCTNC is also printed on the 
first line cf a new ccntrcl group (see 
explanation for line 14) — and overflow time 
is separate from regular detail or total 
time (see next chapter) --the line must also 
be conditioned not to print if a control 
break has occurred (NL1 in cols. 26-28); 
otherwise, Account No. will print twice in 
that situation. 

When any overflow indicatcr is used in 
the output specifications, forms-advance to 
channel 1, after a channel-12 punch has 
been sensed, is. not automatic; therefore, 
Skip-Eefore to channel 1 (01 in cols. 
19-20) is specified. No space (0) or skip 
is specified to follow the overflow indica- 
tion, because the data from the next detail 
card is to be printed on the same line. 

Specif icaticn_line_J2 i Indicator 06 in 
cols. 24-25 conditions line 12 on page 04 
through line 02 on page 05 to apply only to 
detail cards (Daily Sales Summary); i.e., 
all printing takes place when detail cards 
are being processed. 

The job requirements stated that Account 
No. and Name are to he printed on the same 
line as the first detail-card data, 
although Name is available only from the 
Customer Name card. This can be accom- 
plished in several ways. The method chesen 
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here utilizes the fact that any field 
retains its data until read into again, or 
reset. Thus, the Customer Name is still in 
the NAME area in core while detail cards of 
the same group are being processed — until 
the next Customer Name card is processed, 
or the field is blanked by a program 
instruction. The name can, therefore, be 
printed at detail-card time. Col. 18 spe- 
cifies single spacing after each detail 
line. 



Line 13, page. 04, through line 02, page 05. 
Throughout, the Field Name in cols. 32-37 
specifies which input or calculation-Result 
Field is to be printed. The size of each 
of these fields was determined in the Input 
or Calculation Specifications. Cols. 41-43 
specify the right-hand print position where 
the field, as edited and including edit- 
word constants, is to end. The printing of 
items en the print line may be further con- 
ditioned (besides the indicator-06 condi- 
tion applicable to the entire print line) , 
and the format may be edited (see below). 

Speci fic ation lines J.3-J5 on pag e 4. 
Indicator 10 turns off whenever the NAME 
field is not blank — see Input Specifica- 
tions, line 02. It is, therefore, off when 
a Customer Name card has been read. Thus, 
MOYR, ACCTNC, and NAME fields are printed 
with data from the first detail card (Daily 
Sales Summary) , because the condition N10 
(indicator 10 not on) in cols. 23-25 then 
still obtains. If indicator 1 is net 
turned on by a program specif icaticn, they 
will be printed on every detail line. By 
specifying B (Blank- After) in col. 39 next 
to NAME, the NAME field is blanked after it 
has been transferred to the cutput area. 
Indicator 10 then turns en. Therefore, the 
printing called for in specification lines 
13-15 is net performed again after the 
first detail Card, until a new Customer 
Name card has been read. (See also Program 
logic Flow, Blank-After. ) 

Specification lines 01-02 on page 05. The 
printing specified in line 01 is performed 
when the detail-card amount is positive 
(N07) , and that in line 02 when it is nega- 
tive (indicator 07 on) . (The setting of 
indicator 07 occurs in the Input Specifica- 
tions.) Thus, positive amounts are listed 
to the left of negative amounts. 

Specification line C3 en page 05. T in 
col, 15 designates execution at total time. 
The LI indicator in cols. 24-25 conditions 
execution of the print line to cccur on 
each Level-1 centre! break, i.e., a break 
on Account Nc. Ccl. 17 specifies a single 
space before this total line which, in con- 
junction with the single space after detail 
lines, leaves one blank line before the 
group totals. Three spaces after the 



group-total line (3 in col. 18) leave 2 
blank lines before the next detail line. 

Specification lines 04-05. Similar to pre- 
viously explained field entries, but the 
fields are printed at Level-1 total time. 

Specif ication.. line 07 on, page. 05. T in 
col. 15 designates execution at total time. 
The LR indicator in cols. 24-25 conditions 
execution of the print line further, to 
occur only after the last data card (Last 
Record) has been processed; i.e., for final 
totals. Cols. 21-22 contain the specifica- 
tion to skip the form to channel 1 after 
printing the final total. 

Specification line 09. Besides being 
printed only at final total time, indicator 

09 must be off (N09) to cause the PCTRTR 
(Percent Returns) field tc print. The 
reason for this is that, if FTOTSL (Final 
Total Sales) was zero at the end of the 
report, PCTRTR was net calculated because a 
zero divisor would be meaningless (and 
division by zero is not allowed) . (See 
also Calculation Specification lines 05 and 

10 for establishment and application of 
indicator 09.) 

Editing. When data appears between single 
guotes in 'cols. 45-70, on the same line as 
a Field Name, the entry modifies the format 
in which the data is printed. Only fields 
to which a decimal position (0-9) was 
assigned may be edited; that is, fields 
designated as purely numeric. Illustra- 
tions follow. 

Specification line 13, page_.04 Y .__cgljs_j.. 
^6-50^ Specifies that a slash is to appear 
between Month and Year digits. A zero in 
the first column of Month is automatically 
suppressed, because an edit word is used. 

Line 14. All zeros in ACCTNC will be 
printed, because no editina or zero sup- 
press is specified (it can Only be speci- 
fied for a field defined as numeric; i.e., 
a field for which Decimal Positions has an 
entry where the field is defined) . 

Lines 1-0 2, page C5. Leading zeros are 
eliminated, through the dollar position. 
Decimal point and two low-order positions 
are always printed in this example. Comma 
is printed between hundreds and thousands 
positions when there are significant digits 
to its left. 

Lines 04, 05, 08, 10. Similar to editing 
of lines 1 and 02, but CR or minus symbol 
(respectively, as shewn) is printed for 
negative amounts. 

Line 09, page 05. Leading zeros are eli- 
minated only in the tens and hundreds posi- 
tions. The decimal point and a percent 
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sign, followed by the letters RTRN, are 
always printed when the print line is 
printed. Zero percent is printed as 0.0% 
ETBN. Note that, ty means of the decimal 
point in the edit wcrd, the ratio with 3 
decimals (Calculation Specification tine 
10) is converted back to a percentage with 
1 decimal position. 



is positive, and line 13 if it is neqative, 
at group control-break time. (See cols. 
26-28 here, and line 01 in Calculation Spec- 
ifications.) When positive, the card 
enters the normal stacker for hopper 2 of 
the MFCM; when negative, it is selected to 
stacker 3 (see entry in col. 16). 
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urce being MFCM hcpper 2. 
5 specifies output at total 
ail) time. The entries 
4-25 specify punching of 
control creak of Level 1. 



The OE in cols. 14-15 designates that 
the same punch data applies when the condi- 
tions for either specifications line 1 2 or 
13 are met, subject to any further condi- 
tioning indicators. The difference in con- 
ditions is that line 12 applies if TCTAMT 



Lines 14-18 specify which fields — defined 
in Input or Calculation Specifications — are 
to be punched into the Monthly Summary 
cards, together with the low-order-position 
columns where the fields are to end in the 
output card. 

Line _ 19 specifies that the constant. 9 is to 
be punched in col. 80. (The absence of a 
Field Name designates cols. 45-70 as 
available for a constant rather than an 
edit word.) 

The B in col. 39 (Blank-After) on lines 15 
and_JM5 directs the prograu to reset the 
TOTAMT and TOTPEF fields to zero after they 
have teen transferred to the output area, 
so that they are cleared to accumulate 
totals for the next control group. 
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PROGRAMMING FOR EPG — GENERAL INFORMATION 



o 



This chapter d 
that must te u 
est benefits f 
complete infor 
cne reference 
into considera 
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eals with facts and functions 
nderstcod tc derive the full- 
rcm RPG. In order to provide 
maticn on t'.iese subjects at 
pcint, the chapter delves 
ble detail and, occasionally, 
This was considered prefer- 
user's viewpoint, tc scat- 
facets throughout the volume. 



If the meaning or relevance cf all 
statements made in this chapter is not 
apparent on a first reading, the user 
should not be concerned: they are 
illustrated as the manual proceeds. Eoth 
the ensuing itemized coverage of each 
specification field and the appended 
extensive applications exairrles clarify the 
contents of this chapter, and make freguent 
reference to them. 



net in the card itself; i.e., they can 
only be stacker-selected by designation 
on the Input Specifications sheet on 
the basis of card type. 



In summary: There is no entry for an input 
file in the output specifications. 

Output Card File 

One card output file consists of all the 
cards that originate from one hopper of a 
card punch or read-punch device, and ful- 
fill all of the following conditions: 

1. All of the cards are to be punched and/ 
or interpreted (card-printed) by 
entries on the Output-Format Specifica- 
tions sheet. 



It is, therefore, suggested that the 
user read this chapter thoroughly once and, 
thereafter, expect to revert to appropriate 
portions cf it repeatedly. 



EEFTNITICN OF TERMS 

Terminology that recurs throughout this 
publication is defined below, as it applies 
to_Mcdel_20_card_RPGj. 

File 



Note: A single card file can serve as both 
input and output. It is then termed a 
"combined file"--see definition for combi- 
ned file, below. 



Input File 

Cne input file consists cf all the cards 
that originate (i.e., enter the system) 
from one hopper of a card read or read- 
punch device, and fulfill all of the fol- 
lowing conditions: 

1. All the cards are to he read (i.e., 
punches in the card serve as input to 
the system) . There must be an entry 
for them in the Input Specifications. 

2. None of the cards are tc be punched. 

3. None of the cards are to be interpreted 
(card-printed) . 

4. None cf the cards are to be stacker- 
selected on the basis cf information 



2. Ncne of the cards are tc be read. 

In summary: There is no entry for an out- 
put file in the input specif icatiens. The 
cards in the file may be blank or pre- 
punched, but they will not be read. 

Combined File 

One combined file consists of all the cards 
that originate from one hopper of a read- 
punch device to which the following condi- 
tion applies: 

All or some of the cards serve as input 
to the system and all or some of the 
cards — regardless of whether they are 
the same or different cards in the file 
--also serve as output; i.e., the file 
reguires entries both on the Input and 
Output-Format Specifications sheets. 

A combined file is a sinqle file. 

Output Printer File 

All report (paper forms) printinq performed 
by one program under control of a single 
forms carriage is designated as one output 
file. 

For the IBM 1403 or standard 2203 Print- 
er, this implies that all print lines are 
identified as belonging to a single file . 
If the Dual-Feed Carriaqe special feature 
is installed on the IBM 2203, and both car- 
riages are to be used in one program , the 
lower and upper feeds are treated as two 
separate output files. 






24 System/360 Model 20 OPS Report Program Generator 



EBCDIC— EXTENDED BINARY-CODED-DECIMAL 
INTERCHANGE CODE 

EBCEIC is the IBM System/360 machine coae. 
It provides for 256 unique characters. For 
further details, see Appendix D, Figure D1, 
and the publication IBM Svstem/360 Model 
20j Function al^ Characteristics , Order 
No. GA26-5847. 

Characters 

Alphabetic Characters 

The 26 letters of the English alphabet, 
plus these three characters: 



Eollar Sign ($) 
At-sign (3) 



— card punch- 
combination 
11-3-8 
— card punch- 
comtination 
4-8 
Found or Number sign (#) — card punch- 
combination 
3-8 



most position only. Blanks in digit posi- 
tions of a numeric input field are con- 
verted to zeros. Zone punches in an input 
field, in other than the low-order posi- 
tion, are stripped. 

Note : For other possible punches in numer- 
ic fields, see P ac ked and Decimal Posi- 
tions x under Inp u t .Specif icat ions,. 

Literals 

A literal is the actual data to be operated 
upon, rather than a symbolic name repre- 
senting the location of the data in core 
storage. The specifications sheet entry 
must be left- justified . 

A literal is stored in storage only 
once, regardless of how often it is used- 
provided it is always the same size, and 
used in identical format (always alphamer- 
ic; or always numeric, with decimal point 
position uniform; if numeric, always with 
the same sign designation or always without 
sign) . 



o 



Numeric Characters 

The digits through 9. 

Special Characters 

The 217 EBCDIC characters not defined as 
alphabetic or numeric. 



Alphameric Literals 

alphameric literals consist of any one or 
more of the 256 EBCDIC characters (see 
Appendix E, Figure D1, for the appropriate 
card punch-combinations) . Initial and ter- 
minal apostrophe symbols (' ) — card punch- 
combinations 5-8 — are required. They 
designate the literal as alphameric and 
define its extent. 



^m^Jw 



Alphameric Characters 

Any of the 256 EBCDIC characters, including 
blank. 

Fields 

Alphameric Fields 

All fields for which a Decimal Positions 
specification (0-9) has not heen made in 
the appropriate column of any of the per- 
tinent specification forms — regardless of 
whether the field contents are alphabetic, 
numeric, or alphameric. Zero and fclank are 
distinguished . 



Numeric Fields 

All fields that have a Decimal Positions 
specification (0-9) in the appropriate 
column of any of the pertinent specifica- 
tion forms. 

Numeric fields contain numeric charac- 
ters, and possibly a 12-zone punch (+) , or 
an 11-zone punch (-) sign over the right- 
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Numeric literals must not be enclosed in 
apostrophes. 

Numeric literals can only be specified 
in the calculation specifications. 

Note: If European notation is specified in 
the RPG control card (Card H) , a decimal 
comma is allowed in numeric literals in 
place of a decimal point. 

Control Fiel ds 

Fields that contain information to be com- 
pared from card to card for the purpose of 
detecting the end of a control group (a 
group of records having identical control 
fields) . A control, break is deemed to 
occur when information in a control field 
differs for two successively processed 
cards for which a control level is speci- 
fied. When a control break occurs, the EPG 
program turns on the L-indicator (L1-L9) of 
the control level assigned to that control 
field, and all lower-level L-indicators. 

Control Le vel 

The significance level (L1-L9) assigned by 
the programmer to a control field. 



SYMBOLS DSED IN THIS PUBLICATION 

Blank 

For convenience, the symbol t is occasion- 
ally used to represent a blank column or 
the EBCDIC code for a blank. 

Zero 

Where confusion might otherwise result 
between the letter and the numeral zero, 
the latter is either spelled out, or repre- 
sented by 0. 

Column 

The word "column" is frequently abbreviated 
as "col.". 



PB0GEAM_L0GIC_FL0W 

Each object program generated by BEG uses 
the same general logic, and for each card 
processed the program goes through the same 
general cycle of operations. 

There are actually two different points 
(or times) in the RPG cycle where calcula- 
tion and output operations may occur. 
These two major components are called 
detail time and tot al_ time. Detailtime 
and total time may be split up into: 



1. Detail (or heading) output time (1) 

2. Detail calculation time (4) 



O 



3. Total output time 



4. Total calculation time 



(3) 



(2) 



Note: The numbers in parentheses refer to 
the numbers used in Figure 5H. 

The RPG cycle shown in Figure 5H begins 
with the detail-output routine. This rou- 
tine enables the program to write constant 
data (e.g. a heading line) at the top of 
the report. 

Tctal-time calculations and output 
appear in the cycle before detail- time cal- 
culations and output. This time sequence 
is necessary for processing groups of re- 
cords (e.g. for making group totals). 
Between READ and total time the program 
determines whether the record belongs to a 
new control group. If it does, a special 
indicator is set on and the final proces- 
sing for the old record group is done dur- 
ing total time. At total time, the data 
from the last record of the old control 
group is still available. The contents of 
the record just read are not made available 
for processing until just before detail- 
time calculations. This new record thus 
begins being processed at detail time. It 
remains available during reading of the 
next record and until after the next total 
time. 

Basically there is no distinction 
between the operations that can be per- 
formed at detail-time and at total-time; 
however, certain control information avail- 
able (such as the status of indicators 
described below) differs, as well as the 
data available relating to the position of 
the card. 

The END routines are performed after 
total time so that all required total pro- 
cessing can include the last record of the 
file. 

Another component of the cycle is 
oyer flow -output time , with any overflow 
output designated T {for "total") preceding 
any designated D ("detail") . All overflow- 
time output operations are available after 
total-time output. 

Figure 6 is a logic flow diagram of the 
RPG cbject program. Reference to points on 
the chart is made as the relevant subject 
matter is covered. Figure 6 is repeated as 
Figure G3, in appendix G, for convenient 
reference. 



o 
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Figure 5H. RPG Object Program Cycle 



Note: In referring to output operations 
other than total-time or overflow-time out- 
put, both detail (D) and heading (H) output 
are used. There is no distinction between 
D and H in the EPG program — the two codes 
are interchangeable, and are both available 
merely for the convenience of the user in 
identifying the purposes of different spec- 
ification lines. 



Indicator, Setti ngs 

Vertical lines in the right margin of 
Figure 6 pertain to the possible setting or 
resetting of indicators at different points 
in the program cycle, when the indicators 
are used in a normal manner. (Greater 
detail is supplied in the next section, 
titled Indicators..) 



The symbols shown in the indicator chart 
in Figure 6 have the following meanings: 



Indicator is turned off by RPG Program itself 



Indicator is off 



1 

T 
T 



Indicator may be turned on 

Indicator may be on 

Indicator may be turned off or on 



Blank -After instruction turns on 
indicator assigned to Zero-or -Blank. 
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CARD RPG OBJECT PROGRAM - GENERAL FLOW 



1 



\ Perform 
A Heodlng- and 

~*\Detail-T; 
\ Output 



Indicator. (Normal U») 






\ Read Into Input /} NOTE: At Start, I 
^■v \ Area from / | Read one Card I 
CCJ— A Fllejuil / | From Each File I 
^"' \Procet.ed / J (if Multi-file Job)! 



If Channel 12 
during Detail Lines, 
Turn on OF/OV - 




Clear Cord-Typ* 
Resulting Indical 
and VP. HI. H2 
L1-L9, LR. 
(Turn on LO, if Off) 



<H) 



Move Data from 
Input Area to 
Input Work Area 



o 




f End of Job \^ 




! Bypassed 1st Cord, l 

I If Control Fi«td(s) on 

I Input Specs, bypassed I 

! thru 1 st Card of Type l 

I with Control Fieldfc). ■ 

| 1 




ro Process Area. 
Turn Field 
Indicator! On/Off 



L , 



0«— 



MH 



(Mi) 



Figure 6. EPG Proqram Logic 
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Special Aspects of RPG Program L ogic 

Although the program logic chart is largely 
self-explanatory, and its entries are 
further explained in pertinent subsequent 
sections of the manual, a few points of 
overall significance to RPG programming are 
emphasized here: 



1. 
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Because output is to the new card, 

a. a stacker-selection specification 
for total-time output causes selec- 
tion of the new card, and 

b. card punching and document-printing 
at total time apply to the new 
card. 

Consequently, although it is known at 
total time whether the previous card 
was the last of a type or group--note 
in Figure 6 that L-Indicators and card- 
type Resulting Indicators for the new 
card have been set before total time — 
it is not possible 

a. to stacker-select the last card of 
a type or control group, with RPG; 
or 

b. to document-print the last card of 
a type or control group, with RPG; 
or 

c. to punch the last card of a type or 
control group, with any programming 
language 

on the basis of its being the last card 
of the type or control group. 



The PCU (Punched-Card Utility) pro- 
gram PLACE specification card provides 
a very simple method for selecting the 
last card of a control group. Alterna- 
tively, a Basic Assembler Language sub- 
routine can be used with RPG to select 
the last card of a group (see Program - 
ming Tips , Appendix E) . 



To punch a card only at the end of 
each group, that card must either be 
identified as a different card type 
(input specifications Resulting Indica- 



tor) , or it must be in another file 
with its matching fields so coded that 
the card will advance at the appropri- 
ate point in a multiple-file operation. 
(See section on Matching of Files. ) 



2. Multiple-Time Output to 
One Program Cycle: One 
operation (punching and 
printing and/or stacker 
taken place in a card, 
advances, and the next 
equivalent position in 
punch or card-print sta 
fore, all output instru 
card must be given unde 
of File Name and Type ( 
Format Specifications) , 
in the program cycle (t 
overflow time or detail 
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One program cycle extends from entry 
point A at the top of the Program Logic 
Chart (Figure 6) through exit point A 
at the bottom; i.e., from detail-output 
time through total and overflow time 
and through detail-calculation time. 
It is permissible--if called for by an 
unusual job requirement — to give output 
instructions for more than one point in 
this cycle, and/or by separate groups 
of instructions for the same cycle-time 
segment, for the same card file. This 
is done by card-output entries for more 
than one output time (total-time out- 
put, overflow- time output, detail-time 
output) , and/or by card output entries 
with repeated definitions of the same 
file for the same output time (and/or 
by branching (GOTO) from detail to 
total time) . The user must then clear- 
ly understand the consequences: 

The first group of card-output 
instructions, for the earliest 
point in the cycle, results in 
operations on the card just read 
(or, if only an output rather than 
a combined file, the card just 
advanced to the equivalent posi- 
tion) . Each additional group of 
card-output instructions for the 
same file — for the same point in 
the cycle or for subsequent points 
— performs the designated output 
operation on a next card from the 
same file. The data read (if a 
combined file) from the first of 
these several cards remains avail- 
able for processing. 

The additional cards are not 
read; they are treated as though 
they were only output-file cards, 
even if they are part of a combined 
file; they do not enter the program 
logic cycle. 
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Figure 7. Kultiple-Time Output to Cards During One Program Cycle 
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Result: Ca is read, and its 
data is available for processing. 
It is card-printed at detail time. 
(Note total-time bypass on first 
card — described in item 4, below.) 
Cb is not read. It is punched at 
detail time. Cc is read, and its 
data is available for processing. 
It is punched at total time. Cd is 
not read. It is card-printed at 
detail time. Ce is not read. It 
is punched at detail time. Cf , Cg, 
and Ch repeat the sequence Cc, Cd, 
Ce; etc. 

Overflow-Time Output: Regardless of 
whether a carriage-tape channel- 12 
punch was sensed during detail-time 
output or total-time output, all output 
operations conditioned by on status of 
the overflow indicator (s) (OF, 0V) 
occur at overflow time, which follows 
total-time output. Three points should 
be noted: 

a. Since overflow-time output follows 
total-time output, all relevant 
totals are normally printed before 
page overflow, even when a 



carriage-tape channel-12 punch was 
encountered during detail output 
printing from the last detail card 
of a control group. 



Appendix 2 illustrates an RPG 
programming technique for imple- 
menting page overflow prior to 
total output, when a channel-12 
punch was encountered during detail 
output for the last card of a con- 
trol group. It is, however, not 
possible to create an overflow 
operation between successive 
detail-time or between successive 
total-time lines of the same pro- 
gram cycle. Thus, overflow cannot 
occur, say, between output for sev- 
eral total levels in the same pro- 
gram cycle, even if a channel-12 
punch is sensed between these print 
lines. 



Because overflow output occurs at a 
separate time in the cycle, care 
must be taken that data does not 
print more often than desired, when 
a line is specified to print on an 
overflow condition as well as on 
some other condition (such as a 
control break) --both of which may 
occur in the same cycle, but at 
different times. This can be 
avoided by conditioning the over- 
flow specification line not to 
apply when the condition for the 
other specification line applies in 
the same cycle. (The section on 
Output-Format Specifications illus- 
trates the case, as does the pre- 
ceding Introductory Program 
Example, Figures 5E and 5F.) 
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c. Overflow-time output is primarily 
intended for the printing of page 
headings on forms overflow; but 
card output operations are also 
possible — such as card punching, 
card-printing, and stacker selec- 
tion. If any card operations are 
performed at overflow-time output, 
it must be understood that 

(1) output will apply to whatever 
card happens to have been read 
last, and 

(2) the next card may then advance, 
without being read, as 
explained in 2, above. 

4. Total-Time Processing on "Run-In": In 
order to prevent undesired totals prior 
to detail processing of the first card, 
total-time calculations and total-time 
output are suppressed until the first 
card has been processed. Thereafter, 
further bypassing of total-time calcu- 
lations and total-time output depend on 
other factors: 

a. If none or all of the card types in 
the output specifications have con- 
trol fields (Control Level) speci- 
fied, total-time processing is 
available on all cards after the 
first — including the portion of the 
cycle when the LR indicator is on, 
following the last data card of the 
pertinent file. 

b. If only some card types have con- 
trol field (s) specified in the 
input specifications, total-time 
processing is bypassed until after 
the first card of a type with con- 
trol field (s) specified in the 
input specifications has been 
processed. 

If the first card of the deck is 
of a type that has control field (s) 
specified in the input specifica- 
tions, operation is tantamount to 
a, above. 

If no card of a type with con- 
trol field (s) specified occurs in 
the data deck , total-time calcula- 
tions and total-time output are 
bypassed for the entire job — inclu- 
ding the portion of the cycle when 
the LR indicator is on, following 
the last data card of the pertinent 
file. 

Exception: See GOTO, under Calcu - 
lation Specifications . 

Whether total-time operations are 
bypassed or not is independent of the 



status of L-indicators — although L- 
indicators are normally also utilized 
to condition operations during total 
time, when total time is not bypassed. 
(See also Indicators: L1-L9, LP, LR. ) 



5. Output Before First Card is Read: As 
indicated by the first two input/output 
flow chart symbols at the top of Figure 
6, detail (or heading) output takes 
place, at the start of the object-pro- 
gram run, before the first data card 
has been read. Therefore, all detail- 
output specifications — other than 
constant-data heading lines desired 
ahead of regular detail output — should 
be conditioned by an indicator that is 
not on initially but is on for the 
appropriate cards, or by the negative 
status of an indicator that is on ini- 
tially but off thereafter. One simple 
method is to condition any initial 
heading lines of constant data by 1P, 
and the regular detail output by N1P or 
by card-type Eesulting Indicators. 

(See Figure 8, and also the section 
Indicators, IP . ) 

If the detail output is not condi- 
tioned, spurious printing and/or card 
output (depending on the nature of 
detail output specified) occurs before 
the first input card has been read. 

6. Blank-After (B in col. 39 of Output- 
Format Specifications) : Figure 6 
correctly indicates that Field Indica- 
tors are set on or off when the new 
input data is transferred to the pro- 
cess area, and that Calculation Result- 
ing Indicators are set on or off during 
calculations. However, an indicator 
assigned to "Zero or Blank" in Input or 
Calculation Specifications (arithmetic 
operations or TESTZ) is on initially, 
and also turned on immediately when an 
output specification is executed for 
which "B" (Elank After) is specified in 
the Output- Format Specifications: as 
soon as the data for an output line 
with B in col. 39 is transferred to the 
output storage area, the field is 
blanked (if alphameric) or set to zeros 
(if numeric) and the Zero-or-Blank 

indicator for that field turns on — 
before any further output fields are 
processed. (This does not cause Field 
Indicators or calculation Resulting 
Indicators assigned to Plus or Minus to 
turn off, if they were on.) 

Fields for output at one point in 
the cycle, under one file-identifica- 
tion entry, are transferred to the out- 
put storage area in the sequence in 
which they appear in the Output-Format 
Specifications, with one exception: 
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Figure 8. Output Before First Card is Bead 
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The Introductory Program Example , 
(Figure 5) illustrates Blank-After: As 
soon as NAME has been transferred to 
output storage for the first detail 
card of a group, the NAME field is 
blanked and, therefore, its data is no 
longer available (to be printed a 
second time or to be punched or card- 
printed) . Indicator 10 also turns on 
immediately, and remains on until NAME 
is again read from a Customer Name 
card. This also explains why NAME was 
recorded in the Output-Format Specifi- 
cations after M0YB and ACCTN0. If it 
were entered ahead, indicator 10 would 
be on before MOYE and ACCTNO are 
printed; they would then net print, 
being conditioned by N10. 
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INDICATOBS 

Indicators are assigned — either by the pro- 
grammer or, in some instances, by the BPG 
program itself — to identify conditions. 
They are represented in the specifications 
by two-character codes. (Both characters 
must always be recorded, even if the first 
one is the digit zero.) At the point on 
the specifications sheet where an indicator 
is assigned to become associated with a 
condition, it is termed a Resulting Indica- 
tor or a Field Indicator. Those indicators 
assigned by the program itself may also be 
thought of as resulting indicators, since 
they are associated with the occurrence of 
a specific condition or result. 

The status ( on or off) of a Resulting 

specification (a line on a specifications 

§we"r: 
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If the same indicator is again assigned to 
a criterion in the same program cycle, its 
status can change again. If, on the ether 
hand, the specification _ (specifications 
sheet line") with which an indicator is 
associated is not executed cr processed 
under certain conditions (say, certain card 
types) , then the indicator does not change 
its status when these particular conditions 
exist. 
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ndicators assigned tc Zero-cr-Blank, in 
t Field Indicators or in Calculation 
lting Indicators (arithmetic and TESTZ 
atiens) , are on at the beginning of 
ram execution and as seen as an output 
k-After specification fcr the field has 

executed. (Turning on a Field or 
lting Indicator — assigned to Zero-cr- 
k--by Elank-After, dees not cause indi- 
rs assigned to Plus cr Minus to turn 
if they were en.) 



Internally in the central processing 
unit, the "off" cr "reset" condition of an 
indicator is represented by hexadecimal 
code 00; "on", by hexadecimal F0. (See 
Appendix E fcr discussion cf hexadecimal 
code.) 

Different indicators may be assigned to 
any two, cr to all three, cf the possible 
resulting pr field conditions fcr one spec- 
ification line; or, the same indicator may 
be assigned to more than one condition in 
one specification line. In the latter 
case, the indicator turns en if any one of 
the conditions to which it is assigned has 
occurred. 

The OK or NOT ON status of indicators 
can be used to condition the execution of 
instructions in specifications statements; 
i.e., performance of an operation can be 
stipulated to be contingent upen the status 
of particular indicators. An indicator 
used in this manner is referred to as a 
"Conditioning Indicator." The two-charac- 
ter indicator code is recorded in the two 
right-hand columns cf a three-column (con- 
ditioning) Indicators field to condition 
execution of the instruction on that line 
upon CN status of the indicator. If the 
indicator code is prefixed by the letter N 



(in the leftmost position of the three- 
column Indicators field) , the instruction 
is executed only if the indicator is OFF. 
It is possible to condition the execution 
of an instruction by a combination of the 
status of several indicators (termed an AND 
relationship) , or by the acceptable status 
of one of several indicators (termed an OE 
relationship) . 
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THE SPECIFIC INDICATORS 

01-9 9, (General Indicators) 

Normal uses: Identification of card types, 
of status cf input fields, of results cf 
calculations and comparisons; conditioning 
of calculations and output based on status 
of these indicators; determination of 
search in a table leck-up operation. 

Any of these ninety-nine numbers may be 
assigned by the programmer to be associated 
with the occurrence of a specific condi- 
tion. When the criterion has be^n , ■s^ is- 
fjied, thP indica tor tnrn,s qti t Tt rftma.ijis. 
on until v a criterio n for that indie.; 
been "test e d a^aTnT*TnX1n1Tr°^ f Ks^JusA **. 

These indicators are off at the begin- 
ning of object-program execution (unless 
assigned to Zero-or-Elank) . 
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Four examples (Figures 9fl and B) : 

1. Indicator 10 is assigned as Eesulting 
Indicator, for a Minus result, on one 
line of the calculation specifications. 
Execution cf that line itself is net 
cenditicned. 

Effect: Indicator 10 turns on after 
the instruction of that line has been 
executed the first time, if the result 
was negative. (It remains off if the 
result «as not negative.) It then 
remains on (or off) until tested next. 
The same test is performed at that 
point on every card, indicator 10 teing 
turned (or left) on or off at that 
point in the cycle, depending en wheth- 



er the result of that calculation is 
negative or not negative. 



2. As ( 1) , above, tut the calculation spec- 
ifications line on which indicator 10 
is set, itself is conditioned to te 
executed only durina detail processing 
cf a card type with indicator 01. 

Effect: Indicator 10 turns on after 
the instruction on that line (the third 
line) has been executed the first time, 
if the result was negative. (It 
remains off if the result was not nega- 
tive.) However, the instruction on 
that line is only executed if the card 
being processed is indicator 01 type. 
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Figure 9. Indicators 01-99 
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3. 



l\. 



Therefore, once on (or off) , indica- 
tor 10 remains on (or cff) until that 
specification line instruction is 
encountered again while detail- 
processing a type 01 card. 

The equivalent situation applies if 
a Field Indicator is assigned .to Plus 
or Minus on the Input Specifications, 
and that field dees not apply to all 
card types. The indicator then remains 
en (cr off) , until the field is tested 
again when the appropriate card type 
recurs. 

As (1) , above, but indicator 10 is 
assigned tc two lines (say, lines 5 and 
7) in the Calculation Specifications as 
Resulting Indicator. Execution of 
neither line itself is conditioned. 



Effect: Indicator 10 t 
the instruction en line fi 
executed the first time, i 
was negative. (It remains 
result was not negative.) 
en (cr off) through the ex 
the instruction on the sev 
Its status thereafter, unt 
five instruction has been 
the next card, is based en 
from line seven. 



urns on after 
ve has been 
f the result 
off if the 
It is then 
ecution of 
enth line, 
il the line- 
executed on 
the result 



Indicator 10 is assigned as Field Indi- 
cator tc a negative condition fcr field 
1 and field 3 of every input card, and 
for a negative result en the ninth line 
of the calculation specifications 
(whose execution is not itself 
conditioned) . 

Effect: Indicator 10 turns en prior 
to the detail calculations for a card, 
provided field 3 is negative — i.e., the 
fields are tested in the order in which 
they are written on the Input Specifi- 
cations sheet. Therefore, the status 
of field 1 is ignored for indicator 10. 

Indicator 10 retains its status as 
determined by field 3 until completion 
of the instruction on line nine cf the 
Calculation Specifications sheet. The 
result there determines its statts 
until the beginning of detail calcula- 
tions for the next card, when field 3 
of that card determines the status cf 
indicator 10. 



Note: If any indicator 01-99 is set en or 
off by the special operation code SETCN or 
SETOF, it remains in that status until 
again SETCN or SETOF, or until after execu- 
tion of a specification line where the 
indicator is a Resulting or Field Indica- 
tor, whichever occurs first. In the latter 
case, the resulting condition determines 
the status of the Indicator. 



HI, H.2 ("Halt") 

Principal purposes: To cause a program 
halt after an unacceptable condition has 
occurred, and/or to bypass calculations 
and/or output on erroneous conditions. 



These two indicators operate like indi- 
cators 01-99, with this difference: If H1 
or H2 has been turned on (as a Resulting or 
Field Indicator, or by the instruction 
SETON) , and has not been turned off again 
during the same program cycle (by SETOF, or 
as a Resulting or Field Indicator for a 
tested condition that was not satisfied), 
the system will halt after completion of 
the next detail-time output operations. 
(The halt actually occurs just after the 
next card has been read.) 



The system can be restarted, and the job 
continued, at the operator's option, simply 
by pressing the START key on the CPU con- 
sole twice (i.e., the halt is "non- 
abortive") — see the BPG Opera ti ng Proce- 
dures manual-~halts EOF, EF0, EFF. If the 
system is thus restarted, the H1 and H2 
indicators are set off by the proqram imme- 
diately upon restart. 

These indicators are off at the begin- 
ning of cb ject-program execution. 



\J 



Note : 

1. If H1 or H2 is to cause a halt when any 
of several conditions exist, care must 
be taken not to turn the indicator off 
aaain ty a later test which was net 
satisfied, if an earlier test turned it 
on. 

For example, if H1 is tc be on when 
the result from the first and/or third 
line in the calculation specifications 
is negative, the test for the third 
line must be suppressed whenever the 
first line yielded a negative result. 
Otherwise, although the first-line 
result may have been negative, a non- 
negative third-line result will turn H1 
off again before the system halt has 
occurred. (Figure 10 illustrates how 
to handle this problem.) 

This warning also applies if the 
same indicator is assigned to several 
fields, as Field Indicator on input 
specifications, since the fields are 
examined in the sequence in which they 
are written. 

Of course, this fact can be used to 
advantage deliberately to turn off H1 
or H2 if a subsequent field or calcula- 
tion meets a desired criterion. 



o 
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Figure 10. H1 Indicator On if Either or Both of Two Conditions Exist 
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Indicator H1 or H2 assigned to Zerc-or- 
Elank is off at the beginning of pro- 
gram execution (see Indicator Hierar- 
chy) ; but it will be turned on by a 
Blank-After output specification, like 
any other indicator. A system halt 
then occurs at the end of processing 
for that card. 



IP. f"_1st_Page") 

Primary purpose: To condition fixed-data 
(constants) output to occur preceding the 
processing of the first card. It is norm- 
ally used for report headings. 

This indicator is set by the program 
itself. It is on prior to the processing 
of the first card, and turns off after 
detail -output time preceding the processing 
of the first card (see Figure 6). Figure 
8, line 01 illustrates a common use of 1P . 



The 1P indicator may al 
a Resulting Indicator or F 
and SETON or SETOF, like i 
Besides being on prior to 
first card, it will then o 
cators 01-99 — except that 
off after detail-time outp 
and does not turn on again 
used as Resulting or Field 



so be assigned as 
ield Indicator, 
ndicators 01-99. 
processing of the 
perate like indi- 
1P always turns 
ut operations, 

unless SETON or 

Indicator . 



BR ("Matching Record") 



Primary purpose: To identify cards in a 
file that match those in another file on 
control data, and to condition calculations 
and output based on the status of MR. 

MR turns on when a primary-file card 
matches a secondary- or tertiary-file 
card, on the contents of a designated 
field or fields. If several fields are 



designated for matching, all of them 
must match. (See also section below 
t it 1 e d Matching of Card Files.) 

When the indicator turns on as a result 
of the matching of a primary- and a 
secondary- or tertiary-file card, or turns 
off as the result of a non-match, this 
occurs after overflow-output time (see 
Figure 6) . The MR indicator is then on or 
off for complete cycles, beginning before 
detail-calculation time and through the 
next total and overflow-output time. If 
all primary-file cards match secondary -file 
(and tertiary-file, if present) cards on 
the designated f ield (s) , and vice versa, \ 
the MR indicator remains on through the end 
cf the job. 

If card types for which no matching 
fields are designated intervene, they are 
treated — for purposes of feeding and 
processing — as belonging to the same 
matching-f ield (s) group as the preceding 
card in the same file; but the MR indicator 
is off for their processing cycle. How- 
ever, the contents of the f ield (s) desig- 
nated for matching are stored from the last 
preceding card for which matching was spe- 
cified. Thus, when the next card for which 
matching fields are designated is pro- 
cessed, its matching-f ields contents are 
first compared with those of the last pre- 
ceding card for which matching fields were 
specified. The KB indicator therefore is 
en for the processing of all cards whose 
designated fields match, even if cards that 
are not to be matched occurred in the mid- 
dle of a matching group. 



The MR indicator may also be used as 
Resulting or Field Indicator, or SETON or 
SETOF, like indicators 01-99. It is, how- 
ever, always turned on before detail-time 
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processing of a card that satisfies the 
criteria, above, for matching records; it 
always turns off before detail processing 
of a card that does not meet these 
criteria — as though its status had never 
been subjected to any other criteria. When 
only a single input (or combined) file is 
being processed, MR is always turned off by 
the program before detail time. 



The ME indicator is completely indepen- 
dent of any control levels (L1-L9 — see 
below) that may be specified for ccntrol- 
group totals or group indication. It is 
common, but by no means necessary, that the 
matching fields are the same as the total- 
level control fields. 



CF, CV (Overflow) 

Primary purpose: To control the printing 
of identifying data on overflow pages. 

Indicator OF refers to the standard 
paper-tape-controlled carriage, or the 
lower- feed carriage if the Dual-Feed Car- 
riage special feature is installed on the 
IBM 2203 Printer. OV applies to the upper- 
feed carriage of the Dual-Feed Carriage 
feature. 

If a line is printed after a punch in 
carriage-tape channel 12 for the relevant 
carriage is sensed, the appropriate indica- 
tor (OF or OV) is turned on. The indicator 
is turned on after all detail-time output 
for a program cycle has been completed, if 
the channel- 12 punch was sensed during 
detail output. If the channel- 12 punch was 
sensed during total output, the indicator 
is turned on after all total-time output 
for a program cycle has been completed. 
Segardless of whether the OF (or OV) indi- 
cator is on as a result of detail or total 
output, it remains on until conclusion of 
the next detail output time (see Figure 6) . 
It then turns off, unless a channel-12 
punch is sensed again during that detail- 
output time. Therefore, if calculations 
are to be conditioned by the status of the 
OF or OV indicator~-and a channel-12 punch 
could be sensed during either detail or 
total output— these calculations should be 
performed at detail-calculation time. (See 
also O ve rflow Indicators^.. OFj^OV^ and 
Space,, Sk ip, under Output- Form at 
Specifications) . 

If OF (or OV) is used as a conditioning 
indicator in a file-identification output- 
specification line, it thereby designates 
that that output is to be performed at 
Overflow Time of the program cycle. This 
applies regardless of whether the specifi- 
cation line containing OF or OV is indepen- 
dent, is in an OS relationship with the 
line above or below, or is in an AND rela- 



tionship with a contiguous line; however, 
it does not apply to NOF or NOV. 

If the OF or OV indicator is specified 
as a conditioning indicator in any file- 
identification output-specification line, 
no forms skipping ever takes place for that 
file (standard or upper carriage, respec- 
tively) without an Output-Format forms-skip 
specification; otherwise, forms advance to 
channel 1 is automatic for the respective 
file (standard or upper carriage) after 
total-output time if the CF or CV indicator 
is then on. (Note that this refers only to 
OF or OV - not NCF or MCV.) 
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LJzL9_JControl_Leyelsl 



Principal purposes: To recognize control 
breaks, produce totals at the desired 
levels, and permit group-indication or 
group printing. 

However, these indicators can function 
in several ways, and are not limited to 
control-group identification: 

1. If entered in the "Control Level"- 

columns (cols. 59-60) next to a field 
name in the input specifications, such 
a field is thereby designated a control 
field of that level. 

This has the following effects: 
Whenever the contents of the designated 
control field of a pertinent card do 
not match the contents of the 
equivalent (same control level) field 
cf the last preceding card with such 
control level designated, the specified 
L-indicator turns on — as well as all 
L-indicators of lower levels. 



o 
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o 



2. 



3. 



4. 



The L-indicators turn on prior to 
the tctal-calculations time that 
precedes detail processing of the new 
card (see Figure 6) ; they turn off 
after detail-output time of the new 
card. 

If card types without the relevant 
ccntrcl level designated intervene, 
they are treated as belonging to the 
same control group as the preceding 
card, and the L-indicatcr does net turn 
on. If the next card with such control 
level designated then contains the same 
ccntrcl information as the last preced- 
ing card with that control level speci- 
fied, the new card does not set the 
L-indicator on. (See Figure 13B.) 



Note: See Definition, of Terms (in Gen- 
eral Information section) and Control 
Level (Input Specifications, cols. 59- 
60) for the relation of blanks, zeros, 
zone punches alone, and ± sign punches, 
to control fields. 

Indicators L1-L9 alsc turn on when the 
LE indicator (described below) turns 
en, following the last data card. 

The L1-L9 indicators may also be used 
as Resulting and Field indicators, or 
they may be SETON or SFTOF. If an I- 
indicator is turned en or off in this 
manner, lower-level L-indicators do not 
automatically turn on or off also 
(e.g., L2 could be on and L1 off) . 

If L-indicators are used in this 
fashion in the same program in which 
L-indicators are also assigned for Con- 
trol Levels in input specifications, 
the Resulting or Field Indicator set- 
ting will supersede any prior control- 
break L-indicator status. The exact 
time relationship in the program cycle 
is apparent in Figure 6. 

In any event, L1-L9 are turned off 
after conclusion of detail-output time. 
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the particular instruction is to be 
executed at detail time. 

5. Any L-indicator may be used as a condi- 
tioning indicator, like other 
indicators : 

a. If any of the indicators L1-L9 
(employed in the normal manner) 

appears in Indicators (cols. 9-17) 
of calculation specif icatiens — and 
Control Level (cols. 7-8) is 
blank — the specifications are 
executed at detail time during the 
processing of the first card of a 
control group of that or higher 
level. 

b. If any of the indicators L1-L9 
(employed in the normal manner) 
appears in Output Indicators, the 
output is performed only if a con- 
trol break of that or higher level 
has occurred. 

(i) If the indicator is associated 
with total-time output (T in 
col. 15 and no OF or OV in Out- 
put Indicators of the file- 
identification line), the out- 
put occurs only at total time 
after processing of the last 
card of the control group. 

(ii) If the indicator is associated 
with detail-time output (D or H 
in col. 15 and no OF or OV in 
Output Indicators of the file- 
identification line) , the out- 
put occurs only at detail time 
during processing of the first 
card of the ccntrol group — 
i.e., group indication is 
performed. 

(iii) If OF (or OV) is specified in 
Output Indicators of the file- 
identification line, the output 
is performed at overflow-output 
time (if OF or OV is on) , but 
only if the overflow occurred 
at the end of the control 
group. 

Special considerations for Indicators L1-L9 
on "Fun-In" 

At the start of the job run, the core 
storage areas for all control fields con- 
tain zeros (hexadecimal F0 — see EECDIC 
table, Figure E1, Appendix D) . The 
control-field contents of the first card 
with control level (s) specified in the 
input specifications are, therefore, com- 
pared with zeros. Furthermore, as pre- 
viously stated, no control-break test is 
made when processing a card type for which 
Control Levels are not specified in the 
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input specifications. Therefore, L- 
indicators (when used in the normal manner, 
to signal control breaks) operate as fel- 
lows, at the beginning of object-program 
execution: 

a. None of the indicators L1-L9 is on 
while processing a card type for which 
Control levels are net designated in 
the Input Specifications. 

b. The first card for which ccntrcl levels 
are designated in the Input Specifica- 
tions is tested: the card contents of 
the designated ccntrcl field (s) are 
compared with zeros. If the card field 
contents are unegual to zero, the L- 
indicator of the level specified fcr 
that field — and for all lower L-levels 
— turns en. It remains en (unless set 
off by one of the methods described 
under 3, above) until ccmpleticn of 
detail-time output for that card, when 
the I1-L9 indicators are set off by the 
program. (The L-indicators are thus 
available on the first card — if control 
field contents were unegual to zerc — to 
control detail-time group-indicaticn 
operations.) 



Note: As pointed out under Definition of 
Term s, designation of a field as numeric 
(col. 52 of input specifications) causes 
conversion of blanks to zeros, and strip- 
ping of zones except in the lew-crder posi- 
tion. Furthermore, a low-crder- position 
zone is also omitted from numeric data when 
it is stored in a separate location for 
control-level data. Therefore, numeric 
control fields containing only blanks, and 
/or zeros, and/or zone punches, in the 
first card with control fields, will result 
in an "egual" comparison with zeros, and 
will not set L-indicators on. 

On the other hand, blanks, zones, and 
zeros are distinguished for alphameric 
fields. Therefore, while zeros in alphamer- 
ic control fields (of the first card with 
control fields specified) also will net set 
the relevant L-indicator (s) on, blanks and 
zones in an alphameric field will, because 
they are unegual to the zercs contained 
initially in the control-field core storage 
areas. 

See Programmi ng Tips, Appendix E, fcr a 
technigue that assures group indication for 
the first card even if the control fields 
contain enly zeros. 

The setting and status of L-indicatcrs 
are independent of whether or not total- 
time processing is bypassed (see section 
titled Program Logic) . Indicators 11-19 
are off at the beginning of object-program 
execution. 



LP (L Zero) (Universal Total) 

Primary purpose: To facilitate calcula- 
tions at Total Time even though no control 
break has occurred. 

This indicator is on at the start of 
program execution and is never turned off 
by the RPG program itself. It is consi- 
dered a total-level indicator (like L1-L9) , 
because its entry in the Control Level 
field (cols. 7-8) of a calculation speci- 
fication designates that calculation speci- 
fication to be executed during total-time 
calculations (and provided LO is on). This 
facilitates designating the execution of a 
calculation specification for total time, 
even though no control break — to set any of 
the L1-L9 indicators- — may have occurred. 

For example: Calculations during total- 
time processing of an unmatched card (say, 
a blank trailer card) if the preceding card 
was a matched record — note that, at total 
time, the MR indicator still reflects the 
matching-f ields status of the preceding 
card. 

Numerous other examples appear through- 
out the manual, particularly among Program- 
ming Tips (Appendix E) . Notably, LO makes 
it possible — without a control break — to 
perform calculations after processing a 
card when data, MR, and Field Indicator 
settings from that card are still available 
while the card-type Resulting Indicator for 
the next card is already on. 

The 10 indicator may also be used as 
calculaticn Resulting Indicator, or SETOF 
or SETQN; but it must not be assigned as 
card-type Resulting Indicator or as Field 
Indicator. TWo points must be borne in 
mind : 

1. The LO indicator is on initially, until 
turned off by the result of a program- 
mer's specification; and 

2. If LO is thus turned off, it is turned 
en again by the RPG Program after a new 
card has been read (see Figure 6 — same 
point in the cycle where other L- 
indicators are turned off) . 

IR (last Record) 

Primary purpose: To provide for processing 
final totals at end of job, and to termin- 
ate j c b . 

This indicator turns on, before total- 
time calculations,- following the processing 
of the last data card of an input (or com- 
bined) file. When a multi-file program is 
being executed, entries in the File 
Description Specifications designate which 
file (s) must be completed before a Last 
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Record condition exists (i.e., befcre LE 
turns en) . (Actually, it is the first End- 
of-File--/* — card in the pertinent f ile (s) 
that causes LE to turn on.) 

When LE turns on as the result of the 
last record condition, indicators L1-L9 
also turn on. 

The LE indicator may also be used as 
Resulting and Field Indicator, or SE T CN or 
SETOF. Indicators L1-L9 dc not, then, also 
turn on or off automatically. 

The LB indicator is considered a total- 
level indicator (like L1-L9), because its 
entry in the Control Level field of a cal- 
culation specification designates that cal- 
culation specification tc be executed enly 
during total-time calculations (and pro- 
vided LE is on) . 
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INDICATOR EIFEAECHY 

The program classifies indicators in four 
priority groups. This is cf concern to the 
user only when he chooses tc employ an 
indicator in a non-standard fashion. 
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the indicator will not be set on or off by 
the EPG Program at a point in the cycle not 
desired by the user. The hierarchy order 
in Figure 11 indicates the priority 
sequence applied by the EPG Program in set- 
ting indicators. 



Examples: 

1. ME is used only as card-type Eesulting 
Indicator in Input Specifications. 
Only a single input file exists. (See 
Figure 12A, lines 01 and 13.) 



Effect: 
a 



ME turns on before total-time cal- 
culations, if the card read was of 
the type to which ME is assigned. 
ME is turned off by the EPG Program 
itself before the input data is 
moved to the process area, preced- 
ing Detail-Time calculations for 
the card. 



b. Note that, if the ME indicator is 
used as a card-type Eesulting Indi- 
cator in an CE relationship, the 
wrong input fields may be moved to 
the process area: MB has been 
turned off by the EPG Program 
itself before it can serve to 
implement Field-Eecord Eelaticn. 

If MB is also set en during detail- 
time calculations, it remains on 
through total-time calculations of the 
next cycle — even if the new card is not 
the type to which ME is assigned as 
card-type Eesulting Indicator. 

Eeaso n : The ME indicator belongs to a 
higher group (hierarchy group 1) than 
card-type Eesulting Indicators (group 
2) • 

2. As (1) , above, but ME is also used in 
the normal manner; i.e., the program is 
multifile with matching fields. (See 
Figure 12A, lines 03-13.) 

Ef fect: As (1), above; but ME is 
turned off or on (or remains on) before 
detail-time calculations, depending en 
the result of matching the contents of 
ccntrcl fields between files. Since MB 
may be turned on also by card type in 
this example, it could be on during 
total-time calculations and output even 
if the preceding records did not match 
between the files. On the other hand, 
it could be on--as a result of matching 
records — and thus implement the wrong 
Field-Eecord Eelaticn, when input 
fields are transferred to the process 
area. 

Since ME may be on, in this method 
of use, as both a card-type Eesulting 
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12 punch during tctal-time output; set ON 
after detail-time output and after total- 
time output if printing occurred at or 
below channel-12 punch during detail-time 
output. Set OFF after detail-time output 
if no channel-12 punch encountered during 
detail-time output. 
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Specifications field (if Field Indicator) , 
or Calculation Specifications Result Field 
(if Resulting Indicator) when tested. Also 
set ON by BLANK-AFTER specification on out- 
put. Never set OFF, or ON again, by RPG 
Program itself. 

Set ON or OFF based on contents of field 
when tested. Never set ON or OFF by RPG 
Program itself. 
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Figure 11. Hierarchy and Summary of Indicators 



3. 



Indicator and for matching records, two 
card-type indicators cculd be en, fcr 
part cf the cycle, during processing of 
one card . 

Indicator 10 is used as card-type 
Resulting Indicator for a card type 
(say, COSTMAST). It is also assigned 
as Zero-or-Blank indicator tc an input 
field (say, GROSS) in another card type 



(say, TCTPURCH) , and as Zero-or-Blank 
resulting indicator in a d'etail-time 
calculation (say, line 01) of TOTPURCH 
cards. (See Figure 12B.) 

Effects: Indicator 10 is always set on 
or of f— depending on the card type (on 
for COSTMAST, off for others) — before 
total-time calculations, regardless of 
prior settings by its other uses. 
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Figure 12A. Hierarchy of Indicators - Illustration of Examples 1 and 2 
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resetting of card-type resulting 
indicators. 

Thus, it is possible for more than 
one card-type indicator to be on at the 
same time, for part of the cycle — e.g., 
the card-type indicator assigned to 
TOTPUECH type plus indicator 10, serv- 
ing to identify CUSTHAST card type but 
possibly turned on by GEOSS field of 
TCTPUECH card. 



Note: Initially, indicator 1 is off, 
because card-type Eesulting Indicators take 
precedence over Zero-or-Blank in Field 
Indicators and calculation Resulting Indi- 
cators. However, a Blank-After output 
instruction for the field GEOSS or NETSLS 
will turn it on; it is then turned off 
again before total time of a card of type 
12. 
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Figure 12B. Hierarchy of Indicators - Illustration of Example 3 



MTCHING_ CF CAKD .FILES, AND SEQUENCE 

CHECKING 

A primary file can be matched against cne 
cr two other files, defined as secondary 
and tertiary file, respectively. A secon- 
dary file cannot be matched against a ter- 
tiary file. 
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The criteria for matching of files are 
the contents of cne, two, cr three card 
fields, defined as Hatching Fields (E1, M2, 
and M3)--see Input Specif jlcaticns. The 
number of Matching Fields (cne, two, or 
three) used must be the same fcr all files, 



and for all card types for which matching 
is specified. Card columns of different 
Matching Fields in the same card can over- 
lap; but the total length of all Matching 
Fields for one file (each M 1, M2 and M3 
counted once) must not exceed 144 charac- 
ters. (Note, however, that - even for 
overlapped fields - the program stores the 
data from the different levels of Matching 
Fields contiguously, without overlapping.) 
The length of a Matching Field (M1, M2, or 
M3) must be the same throughout (i.e., in 
all records to be matched) . Matching 
Fields may be defined as alphameric or nu- 
meric (all zones stripped) , and this desig- 
nation need not be uniform for the several 
specifications entries of one Matching 
Fields level (i.e., it may differ between 
files and card types, provided the field 
name differs) . However, if any Matching 
Field is defined as numeric for one card 
type, all Matching Fields of that level 
(M1, M2, or M3) in all card types are 
treated as numeric for the Matching Fields 
operation — i.e., all zones are ignored in 
the match, and blanks are converted to 
zeros. 
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Note: Contents of fields to be matched are 
stored separately for the Matching Fields 
operation. This is independent of storage 
of the data for other purposes (calcula- 
tions, output, etc.) . 

When more than one input (or combined) 
file is specified, matching of the primary 
file to the other input (or combined) 
f ile (s) is mandatory; i.e., at least one 
Matching Field is then required for each 
such file. At least one card type in each 
input (or combined) file must have Matching 
Field (s) specified. 

Whenever Matching Fields are specified, 
seque nc e checking on the Matching Field (s) , 
of all card types being matched, is auto- 
matic. The files being matched are treated 
as a single sequential file. The sequence 
may be specified as ascending (A) or 
descending (D) , but must be the same for 
all files being matched. The sequence is 
checked according to EBCDIC (see Appendix 
D, Figure D1); but any other sequence can 
be substituted by a translation table (see 
Appendix D) . It is not possible, if there 
is more than one input (or combined) file, 
for the files to be in random sequence, 
even if the cards in all files are in the 
same order and would match on the Matching 
Field (s) . An error in the card sequence 
stops the program. The program can be 
restarted — see IBM System/ 360 Model 20, 
Report Program Generator for Pu nched-Card 
Equipment f Opera t ing Proc ed ures (Form C26- 
3800) . Only an error in the direction of 
the sequence is detected: a stop on dupli- 
cates is not part of the Matching Fields 
operation (it can, however, be accomplished 
by calculation specifications) . 



PROCESSING SEQUENCE OF MULTIPLE FILES 

The sequence in which cards from multiple 
files are processed resembles a standard 
IBM Collator match or merge operation, 
except that there can be three files (if 
the I/O devices required for three files 
form part of the system) . 
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When cards do not match, those with 
matching-f ield contents earliest in the 
sequence (ascending or descending) , are 
processed first. Refer to block 6 of 



the processing flowchart, Figure 12.1. 
When matching-field values in secon- 
daries and tertiaries are equal, the 
secondary-file cards are processed 
first. 



Note: When processing of only one file is 
required, this condition can be satisfied 
by entering the appropriate resulting indi- 
cator, from cols. 19-20 of the Input Speci- 
fications, into cols. 9-17 of the Calcula- 
tion Specifications, or cols. 23-31 of the 
Output-Format Specifications. 

Figure 12.1 illustrates the processing 
sequence of cards in two files. The files 
are in ascending sequence. The shaded area 
shows the processing sequence when a 
matching-record condition exists, that is, 
the matching-field of a primary-file card 
equals the matching field of a secondary- 
file card. The MR indicator is turned on 
before the first card of the matched pri- 
mary file is processed. The MR indicator 
remains on during the processing of all 
following primary and secondary-file cards 
that contain the same matching field. The 
MR indicator is turned off when all total 
calculations and output are completed for 
the last matching secondary-file card. 

A card type for which no Matching Field 
is specified is processed immediately after 
the card it follows in the file, like a 
trailer card. Such cards at the front of a 
file are processed before cards in any 
other file. (If they appear at the front 
of more than one file, the normal priority 
applies: primaries, secondaries, 
tertiaries.) 

whenever a primary-file card matches a 
secondary- or a tertiary-file card, the MR 
(Matching Record) indicator turns on before 
detail-time calculations (see Figure 6 — 
Program Logic Flow) ; it remains on for the 
processing of all primaries with the same 
Matching Field (s) value (s). It also 
remains on for the processing of all secon- 
daries and tertiaries that match the pri- 
mary. If the MR indicator is turned off 
during the processing of one of these 
matched cards, by a programmer's specifica- 
tion, it turns on again, before detail-time 
calculations of the next card that belongs 
to the matched group. The MR indicator 
turns off (before detail time) for the pro- 
cessing of a card whose Matching Field (s) 
contents do not match those in the relevant 
other file. 

The MR indicator also turns off during 
the processing of a card type for which no 
Matching Field is specified. However, such 
cards 

1. are ignored in the sequence check. 
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2. do not destroy the value (s) stored for 
sequence checking from the last preced- 
ing card with Matching Field (s) speci- 
fied, and 



3. do not destroy the value (s) stored for 
file matching. 
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The status of the MR indicator may be 
utilized to control calculations and output 
operations, including stacker selection 
{e.g., to direct unmatched cards to separ- 
ate stackers) . 

Normally, stacker selection based on the 
status of the ME indicator should be at 
detail-time output — otherwise the next card 
is selected, since the MR indicator 
reflects the matched or unlatched status of 
a card beginning at its detail time and 
through the ensuing total time, when the 
next card is in output position. 

In order to stacker-select cards, or 
control other output operations (i.e., 
punching and card-printing) , on the basis 
of the MR indicator (in a multi-file opera- 
tion) , the file must be defined as a combi- 
ned file (C in File Description Specifi- 
cations) . 



The matching of files also makes it 
possible to punch and/or document-print 
data from primary-file cards into matched 
secondary- and/or tertiary- file cards, or 
from matched secondary-file cards into ter- 
tiary cards of the same matching group*. 
Similarly, contents (codes, data) from a 
card in higher-priority file can be used to 
condition operations for a matching card in 
a lower-ranking file (primary to secondary 
and/or tertiary, secondary to tertiary) . 
The converse is not possible, because 
matching cards of a higher-priority file 
are completely processed before a matching 
card from a lower-priority file begins 
processing. 



♦Rote: The reference to data from matched 
secondaries to tertiaries in the last para- 
graph means that both types matched a 
primary-file card — secondaries and ter- 
tiaries cannot be directly matched to each 
other. 

Although Matching Fields are frequently 
used concurrently as control fields (indi- 
cators L1-L9), the MR and Lx indicators are 
independent — i.e., file matching and group 
control have no inherent connection. In 
considering the status of L-indicators (if 
control levels are specified) , the files to 
be matched should be thought of as though 
they resulted in one continuous merged 
file — even if they are not being merged. 
(However, Matching Fields and Control Level 
are related to the extent that control- 
field comparisons are only performed when 
cards from pertinent files are processed; 
this, in turn, is based on the Matching 
Fields operation.) 
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Figure 12.1. 



Processing Sequence of Cards 
in two Files 
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Processing Sequence for Three Files being Matched 
(see CONDITIONS and LEGEND below) 
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GIVEN: Two single-column Matching Fields are used, and designated as 

numeric (0 in "Decimal Positions" in Input Specifications); 
ascending sequence is specified. Control levels are also 
designated, for all card types (including those not being 
matched): L2 for high-order (left) field, LI for low-order field. 
LI is specified for all files; L2 only for Primary and Tertiary. 
Assume col. 17 of File Description Specifications is blank for 
all three files, so that all files must be. completed before LR 
turns on . 

LEGEND: P = Primary-File card; S = Secondary-File card; T = Tertiary- 
File card. Arabic numerals— Contents of fields specified as 
Matching and Control-Level fields; "b = blank. NM = No 
Matching Field specified for this card type; lower-case 
letter = Specific card of such type. MR = MR indicator ON 
for processing of this card (Detail Time through ensuing Total 
Time); NMR = MR indicator OFF for processing of this card. 
L2, LI = L2 and/or LI (as shown) indicator on for this card 
(beginning with Total Time and through its Detail Time). 



Figure 13A. Matching of Files - Input Files before Matching 
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Figure 13B. Matching of Files - The three Files after Merging 
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Figures 13A and B illustrate the proces- 
sing sequence for multiple files, the sta- 
tus of the MB indicator in the various 
situations, and the action of Lx indicators 
(L1 and 12) if assiqned to the same fields 
used as Matching Fields. The example was 
deliberately constructed tc show the 
effects of various unusual conditions in 
combination, and is therefore somewhat 
artificial. It should, however, make it 
possible for the user to predict how 
sequencing, the ME indicator, and Lx indi- 
cators will act under any combination cf 
conditions he may set up. 

For clarity in showing the seguence in 
which the cards are processed, the three 
original files are subseguently pictured 
merged into one file, although they need 
not be merged. Explanatory comments for 
Figure 13 follow. If the reader is only 
interested in the processing sequence and 
ME indicator — not the Control Levels--he 
can ignore the Ccntrcl-Level entries: they 
have no effect on the file processing 
sequence or the status of the ME indicator. 

Items to be Noted in Figure 13 

1. Card types for which Matching Fields 
are not specified 

a. A card type for which Matching 
Fields are not specified is pro- 
cessed immediately after the pre- 
ceding card from the same file. 
See position of cards T NMa, P NMa, 
T NMb, T NMc, F 15Mb and S NMb. 



If cards of such type are at the 
front of any file, they are pro- 
cessed first, even if they are 
neither in the primary file nor 
contain the lowest (if ascending 
sequence) value in the fields en 
which other cards are matched. See 
position of card S NMa. (If all 
files began with such cards, these 
cards would be processed in the 
file-priority seguence: primaries, 
secondaries, tertiaries.) 
None of these cards causes a 
seguence error. The card itself is 
emitted from the seguence check, 
and thus is never signalled as out 
cf sequence. The core-storage 
seguence-data area retains its con- 
tents from the last preceding card 
with Matching Fields specified, and 
the next card to be matched is com- 
pared with this data — thus, the 
intervening not-to-be-matched card 
dees not affect the seguence com- 
parison of the ensuing card. 



c. 






d. 



The ME indicator is OFF for such 
cards; but it turns ON again for 
the next card if — without the 



intervening not-to-be-matched 
cards — it would be ON. See ME 
indicator for card following P NMa, 
T NMc, P NMb, and S NMb. 



2. Zones and Blanks 

Since Matching Fields were designated 
numeric: -6 = 0, and 11- and 12- 
overpunches are omitted by the program 
from match and sequence comparisons. 
See cards S 0J and Pb2. 

3. No matching is performed between secon- 
daries and tertiaries. Note that the 
ME indicator is off for cards S19/T19 

and S35/T35. 

4. During the processing of a matched 
primary-file card, there is no indica- 
tion whether it matches only a 
secondary- or only a tertiary-file 
card, or both. 

5. Control Levels 

a. Whether, and in. what manner, con- 
trol levels are specified has no 
bearing on the seguence in which 
cards of multiple files are 
processed. 

b. When a secondary-file card is pro- 
cessed, the high-crder control- 
level field (L2) is not compared 
nor are its contents altered in 
core storage, from the last-pre- 
ceding primary- or tertiary- file 
card — because, solely to illustrate 
the effect, 12 was not specified 
for the secondary file. 

c. Since control levels were specified 
for all cards in a file, the NM 
cards affect control breaks 
although they are not being 
file-matched. 

d. The Control-Level fields were 
designated numeric. Therefore b = 
0, and 11- and 12-overpunches are 
omitted by the program from group 
controlling. 

e. Control level operates as though 
the three files were one file, in 
proper sequence according to the 
EPG file-matching operation. 

The L1 and L2 indicator status, as shown 
in Figure 13B, will now be discussed for 
each relevant card in the example, in the 
order the cards appear in the merged file. 
The reader should bear in mind that control 
levels L2 (high-order field) and L1 (low- 
order field) were specified (for the same 
fields used for matching) for all cards of 
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files P and T, but only control level 11 
was specified for file S. 



T 19 



C ar d 
Iden tification 

S NMa 



P 01 



S 0J 



9 in lew-order field, com- 
pared with stored in con- 
trol field areas at start of 
program execution, sets 11 
on. Note that total time is 
bypassed on first card with 
control fields specified (see 
sections on Program Logic 
IA°1 an ^ Indicators) . 
L2 is off because it is not 
specified for file s. 

Low-order 1 is compared to 
preceding 9 and sets L1 on. 
12 remains off because high- 
order is equal tc ini- 
tially in storage, and not 
changed by card S NMa (nc L2 
control on file S) . 

Zones are removed from numer- 
ic fields for control- level 
operations. Therefore, CJ = 
01. 



P 25 



S 35 



T 35 



P 40 



P 46 



P 50 
(first) 

P NMb 



L2 on because 1 is compared 
to still in control-level 2 
storage from card T 03 
(second) . 
L1 on only because L2 is on. 

Normal control break. 
L2 en for change from 1 to 2 . 
L1 on for change from 9 to 5, 
and because L2 is on. 

L2 off because no control on 
high-crder field of file S. 
L1 off because low-order 
field contents unchanged. 

L2 on because 3 is compared 
to 2 still in control-level 2 
storage from card P 25. 

Normal control break, levels 
1 and 2. 

Normal control break, level 
1. 

Normal control break, levels 
1 and 2. 

Normal control break, levels 
1 and 2: 99 versus 50. 



^tuvJr 



Pfc2 



T 03 
(first) ' 

T NMa 



T 03 
(seccii 


id) 


P 


09 




P 


NMa 





L1 set on for change from 1 

to 2. 

L2 off because ¥> = 0. 

1.1 on for change from 2 to 3. 



12 en for change from to 9 . 

L1 on only because L2 is on. 

L2 on for change from 9 tc 0. 

L1 en only because L2 is on. 

11 en for change frcm 3 tc 9 . 

L1 on for change from 9 to t 
(0). 
L2 off because 15=0. 



P 50 
(second) 

S NMb 



T 50 
(first) 



P 51 



Normal control break, levels 
1 and 2: 50 versus 99. 

L1 off because low-order 
field unchanged. 
L2 off because no control 
level on high-order field of 
file S.. 

L1 off because low-order 
field. unchanged. 
12 off because 5 is compared 
to 5 still in control level 2 
storage from card P 50 
(second) . 

Normal control break, level 
1. 



Q 



T 09 
(first) 



T NMb 



T 09 
(second) 

S 19 



11 on for change from * (0) 

to 9. 

L2 off because f> ~ 0. 

11 on for change frcm 9 to b 
(0) . 

12 off because ¥> = 0. 

11 on for change from t (0) 
to 9. 

12 off because no control 
level on higb-crder field of 
file S. L1 eff because low- 
order field contents 
unchanged. 



/* IE on because end of data 

files. 

L1-L9 on because LE is on. 
Job ends (system halts) after 
total time of /* (in cols. 
1-2) card. No detail-time 
processing takes place for 
this card. 

Sequence-Checking of Single Files 

When the application involves only a single 
input (or combined) file, specification of 
Matching Field (s)--M 1, M2, M3--provides 
sequence-checking on the (se) field (s) , 
without file matching. 



D 
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The explanations for sequence-checking 
given above, under M atch ing of Card Files, 
apply--i.e., in regard to ascending, 
descending and special translation-table 
seguence; stepping on sequence errors; 
maximum aggregate size of sequence fields; 
and ignoring seguence of intervening card 
types for which no Matching Fields are 
specified. 



consumes less core storage space, than uti- 
lizing the Matching Fields entry for that 
purpose alone; it also permits detection of 
duplicates, which is not possible with the 
Matching Fields operation. (Figure 68 - 
Part I illustrates sequence-checking and 
guarding against duplicates by calculation 
specifications.) 



Mote : Programming a sequence check by 
entries in the calculation specifications 
may yield faster throughput, and usually 
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SPECIFICATIONS SHEETS ANE CARDS — DETAIIED ENTRIES 






This chapter and the five chapters that 
follow discuss the specifications for every 
field in each of the five specifications 
forms. Where illustrations were thought 
desirable for clarification, they are 
given. (Solutions to seine special applica- 
tions problems, however, are presented in 
Appendix E, Programming Tips, rather than 
here.) Attention is drawn to limitations 
and potential trouble areas, where deemed 
of general interest and significance. 

Functions treated extensively in earlier 
chapters will not be repeated in detail 
here. The user is assumed to have read the 
precedinq material, and is asked to refer 
back to it for the fine points. The con- 
tents of the chapter Programming for RPG-- 
General Information, particularly, will be 
an indispensable reference. 



In a few instances, the Model 20 card 
RPG provides a latitude in specifications 
that does not conform to the requirements 
of other IBM System/360 EPGs. In these 
cases, a brief note will fellow, indicating 
that differences exist between this and 
other System/360 RPGs. To obviate repeti- 
tive detailed explanations in each such 
note, the term "compatibility" will be em- 
ployed as reason for the recemmended 
approach. 



IIIiES_CCMMCN_TO_ALL^PECIIICATICM_ICJMS 
AND CARDS 



Columns 1-2.: 

Columns 3-5: 



Pag e ide ntification 
Line identification 



While Page and tine identifications will 
usually be numeric, any JEBCDIC characters 
are valid. (Zero does not egual blank.) 

The first two digits of line number are 
preprinted; the third is left blank, to make 
it easy to assign line numbers for inser- 
tions, by writing specifications lines fol 4 - 
lowing line 15 and numbering fcr appropri- 
ate insertion. The cards within a specifi- 
cations type must be in appropriate 
sequence when they are read by RPG. Proper 
sequential numbering facilitates scrtir.g of 
specif icaticn cards, and checking. 

Page and line identifications are read 
as one combined continuous value and 
checked for ascending sequence according to 
EBCDIC (See Appendix D, Figure D1). They 
may start at any value and gaps in the 
sequence are permitted. A step-down 
(descent in sequence) or repetition is 
identified by a printed symbol (S) during 
program generation, but generation is not 



interrupted. (The order in which the pro- 
grammer writes and numbers the different 
kinds of specifications sheets will often 
differ from the order in which the specifi- 
cations card types must be fed into the 
system. The symbol for sequence step-down 
will then be printed, and can be ignored if 
due to this reason.) No sequence symbol is 
printed for a step-down at the first card 
of calculation specifications. 



Column_6j. Form Typ e 

This is a predetermined and constant letter 
for each type of specifications form and 
card. If cards of one specification type 
are followed by those of another type that 
may legitimately follow, and cards of the 
first type then recur, the latter group is 
ignored and an error message is printed; 
but generation continues. 

Columns 75-80; User's Identification 

May contain any EBCDIC characters. This 
field is not checked by the program, but 
the contents are printed during generation. 

Comments Card: *(card punch-co mbination 

11-4-8) in column 7. 

The * in ccl. 7 designates that this is not 
a specification card. The program checks 
only columns 1-6 (see above) . The card 
does not effect any program generation; but 
the contents of columns 1-8C are printed 
during generation. 

This allows the programmer to insert 
notations at any points in the 
specifications. 

Blank, Spe cif i cat ions lines or Car ds 

Blank lines may be left between specifica- 
tions lines, for clarity; but intervening 
blank specifications cards (without * in 
col. 7) cause printing of a diagnostic mes- 
sage during generation, although they do 
not prevent proper generation of the object 
program, 

leading Zeros in. ..Specificat ions Fields 

The recording of leading zeros is optional 
only in specification fields for card- 
column numbers", forms skip (in this RPG) , 
End Position in Output Record (Output- 
Format Specifications) , field legths (Cal- 
culation Specifications) , and for numbers 
and lengths of table entries (File Exten- 
sion Specifications) . 
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FILE DESCRIPTION SPECIFICATIONS (MANDATORY) 



GENERAL INFORMATION 



Maximum Number of Files Available 






Each file used in the object program must 
be defined in one line of the File Descrip- 
tion Specifications form (See Figure 14). 
The form serves the following purposes: 



1. To assign a name to each file by which 
it is referenced in the Input and/cr 
Output Specifications; 



2. To associate each file name with a spe- 
cific input and/or output device; 



3. To indicate whether the file is tc pro- 
vide data input, serve fcr output, or 
both; 



4. To specify — when cards within an input 

(or combined) file, cr files, will be 
sequence-checked — whether secuence is 
ascending or descending; and 

5. If more than one file provides data 
input, to indicate which file(s) must 
be completely processed before the job 
is terminated. 



This is dependent on the input, output, and 
input/output devices attached to the 
system: 



• One input file is available for each 
input or input/output device. 

• One output file is available for each 
output or input/output device. (An IBM 
2203 Printer with Dual-Feed Carriage 
special feature offers two output 
files.) 

• One combined file is available for each 
device that can serve for both input and 
output. 

File types (input, output, cr combined) 
are mutually exclusive (i.e., one file can 
only be an input file, or an output file, 
or a ccmbined file) , and one input/output 
device can be assigned only to a single 
file. 

Each of the two hoppers of the IBM 2560 
MFCM can be independently assigned to an 
input file, or an output file, or a combi- 
ned file. 



IBM 
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Figure 14. The File Description Form 
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Figure 3 shows which input, output, and 
input/output can be combined on the system. 



FILE DESCRIPTION 



File Name— Columns 7- 14 



Each 
name 
reco 
file 
of t 
cont 
ters 
long 
"alp 
neit 
name 



fil 

by 
rded 
. I 
he 2 
inue 
. I 

• ( 

habe 
her 

mus 



e used in the program is assigned a 
the programmer. This name is 

here en a separate line for each 
t must begin in column 7 with one 
S alphabetic characters, and may 

with alphabetic or numeric charac- 
t may be one to eight characters 
See Definiti on o f Terms, for 
tic" and "numeric" characters — 
permits embedded blanks.) The same 
t not be assigned to several files. 



Note ,1; 
stat€d t 
not cont 
alphabet 
allowed, 
that the 
defined 
ters may 
ters. F 
however, 
adhered 



Throughout the 

hat File Names a 

ain embedded bla 

ic or numeric ch 

Actually, the 

first character 
as alphabetic. 

be any of the 2 
cr compatibility 

the stated rest 
to. 



publication, it is 
nd Field Names must 
nks, and only 
aracters are 
program checks only 

is one of the 29 
Subseguent charac- 
56 EBCDIC charac- 

with ether RPGs, 
rictions should be 



Note 2 : Files may be entered in the File 
Description Specifications in any con- 
venient seguence. For compatibility with 
other EPGs, the crder cf input and combined 
files should correspond to that in the 
Input specifications. See also File Desig- 
nation (col. 16) , below. 



File Typg7-Colpmn 15 

I = Input file. 

The cards are read tc provide input 
data . 

There is no output to any of the cards. 

The file name appears in the input 
specifications, but not in the output- 
format specifications. 

= Output file. 

No information is read from the cards; 
they serve only to receive output. Or, 
this file name represents the printer. 

The file name appears in the output- 
format specifications, but net in the 
input specifications. 



C = Combined file. 



Seme or all of the cards in the file 
provide input information a nd some or 
all of the cards in the file receive 
output. The file name appears both in 
the input and the output 
specifications. 



If input cards are to be stacker- 
selected in the cutput specifications 
(e.g., based on calculation results or 
on status of certain indicators, such 
as MR) , they must belong to a combined 
file. 



Ncte: If the user wishes to make cer- 
tain that output cards are blank in 
certain or all columns before they are 
punched, he must designate them as 
belonging to a combined file. The 
fields that should be blank can then be 
read via input specifications, and 
indicators set fcr blank or not blank. 

File Type U does not apply to Model 20 card 
RPG. 



o 



No check is performed by the program 
tc assure that, if C is designated, the 
File Name appears in both the input and 
output specifications. 



o 



File_Eesignaticn--Cclumn_J6 

leave blank fcr output files. No entry 
reguired for input (or combined) files. 

Model 20 card RPG ignores entries in 
column 16 of the File Description Specifi- 
cations form, and the crder in which the 
files are listed on this form. The order 
of priority of input (or combined) files is 
established in the Input Specifications. 



However, for compatibility with other 
RPGs, the order in which input (or combi- 
ned) files are recorded in the File 
Description Specifications should conform 
to that in the Input Specifications, and 
column 16 should contain a specification: 



P (Primary) 



=The only input (cr combined) 
file, or the input (or combi- 
ned) file reccrded first on 
the Input Specifications 
form. 



S (Secondary) =The second or third input (or 
combined) file on the Input 
Specifications form. 

The C, R, and T entries do not apply to 
Model 20 card RPG. 



f]; 
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Primary-file cards are processed ahead 
of matching secondaries; when seccndary- 
and tertiary-file cards match primaries, 
the order cf processing is: primary cards, 
secondary cards, tertiary cards (second 
file with S in col. 16) . 



It is permissible for output-file 
entries to intervene between the entry 
lines for the several input (or combined) 
files. 



End of File — Column 17 

If there are multiple input (or combined) 
files, this column determines which of 
these files must be exhausted before the LR 
indicator turns on and the job terminates. 



entered in column 17 
or "C in column 17 



) fcr all input (or 
/ ccmbined) files: 



m 1 



All input (or ccmbined) files are 
exhausted before LR is turned on and job 
is terminated. 

E entered in column 17 fcr some — but not 
all — input (or combined) file(s): The 
LR indicator turns on, and the job ter- 
minates, after processing of the last 
data card of all files for which E was 
entered — even if cne cr two ether files 
(blank in column 17) are not yet 
exhausted . 

For a single input (cr ccmbined) file, the 
LR indicator turns on, and the job ter- 
minates, after the last data card has been 
processed — regardless of whether column 17 
is blank cr contains E. 

Leave column 17 blank for output files. 



Sequ ence— Column, 18 

Leave blank unless seguence checking is 
called for in the Input Specifications (by 
entries in Matching Fields, columns 61-62). 
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A = Ascending seguence 
D = Descending sequence 



Columns_J9-39 

Leave blank. These columns do not apply to 
Model 20 card RPG. (While comments may be 
recorded in these columns with this pro- 
gram, this would interfere with other RPG 
programs. ) 



I/O DEVICE ASSIGNMENT 



Device — Columns 40 — 4 6 

A mnemonic code is written in this field tp 
assign a specific input, output, or input/ 
output device to the file whose name was 
recorded in columns 7-14. Whenever a par- 
ticular file name is then referred to in 
subseguent specifications, the system acts 
upon a card (or paper form) in the I/O 
device identified here with that file. 

The Device code is written left-aligned, 
starting in column 40. A cede for each 
device has been pre-determined by IBM, and 
must be written exactly as shown below. 



ISpecif ication 
| Entry 

ICRP20 

I 

|MFCM1 
| MFCM2 
IPRINTER 



IPRINTLF 
IPRINTUF 

I 

IPUNCH20 

I 

IPUNCH42 
IREAD01 
i 



Input/Output Device 



IBM 2520 Model A1, Card 

Read-Punch 
IEM 256C MFCM, Hopper 1 
IEM 2560 MFCM, Hopper 2 
IBM 1403 Printer, or IBM 

2203 Printer (Standard or 

Lower Feed) 
Same as PRINTER (see above) 
IBM 2203 Printer, Upper 

Feed of Dual-Feed Carriage 
IBM 2520 Model A2 or A3, 

Card Punch 
IBM 1442 Card Punch 
IBM 2501 Card Reader 



Note: If the Dual 
feature is install 
are used in the pr 
assigned a separat 
code (PRINTER or P 
Two printer output 
lower-feed carriag 
sole) carriage. ( 
20, 2203 Printer , 



-Feed Carriage special 
ed, and both carriages 
ogram, each carriage is 
e file name and Device 
RINTLF, and PRINTUF) . 

files then exist. The 
e is the standard (or 
See IBM System/360 Model 
Form A26-5926.) 



Leave column 18 blank fcr output files, 



For compatibility with other RPGs, 
PRINTER (rather than PRINTLF) should be 
used for the standard^ or lower-feed 
carriage. 

READ0 1 will function also as MFCM1, pro- 
vided there is only a single input file, no 
MFCM output is involved, and no 2501 is 
attached . 
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Figure 15. Example of File Description Specifications 



Columns 47-6 5 

Leave blank. Not applicable to Model 20 
card RPG. (While comments may be recorded 
in these columns with this program, this 
would interfere with other RPG programs.) 

Comm entsy-Columrts ,66-74 (for card EPG only) 

Available for any information the program- 
mer wishes to have printed ott during 
generation of the program. Except for this 
printout, entries in this field are ignored 
by the generator program, and do not take 
up any core storage in the object program. 



EXAMPLE CF FILE DESCRIPTION SPECIFICATIONS 
--FIGURE 15 

Job Requirements (Those Relevant to File 
Description Specifications) 

Match a large file of monthly accounts 
receivable balance cards against transac- 
tion cards. When there are transactions on 
an account, punch a new summary card. Also 
list balance and transaction data. The 
data files are in ascending seguence. Ter- 
minate the run after the last transaction 
card, so that any remaining portion of the 
old-balance file is not unnecessarily pro- 
cessed. Select unmatched transaction 
cards. 

Explanation of Specifications Entries 

File Name 

Arbitrary, but descriptive, file names were 
chosen to illustrate 



a. That the first letter must be 
alphabetic 



b. That there are three symbols that are 
defined as alphabetic — note $ in first 
position of second file name (see 

De f initio n_of_Terras . ) 

c. That numeric characters may be used 
except in first position of file name. 

File Type and I/C Device 

The old-balance file (0LDEALC1) serves, as 
input only (I in col. 15), and is to be fed 
through the IBM 2501 Card Reader (Device 
code READ01 in cols. 40-45). 



o 



The transaction 
as data input only 
that do not match 
selected. Stacker 
the status of the M 
ified in the Outpu 
which makes it an 
$TRNSACT file thus 
and output specifi 
fore be defined as 
col. 15) . The fil 
per 1 of the MFCM 



file ($TRNS 
; but the $T 
CLDBALC1 car 

selection p 
R indicator 
t-Format Spe 
output opera 

appears in 
cations, and 

a combined 
e is to be f 
(Device code 



ACT) serves 
RNSACT cards 
ds are to be 
redicated on 
must be spec- 
cifications, 
tion. The 
both input 

must there- 
file (C in 
ed from hop- 

MFCM1). 



The new-balance file (NEWEAL1) serves 
only for output, and does net appear in the 
input specifications. Therefore, is 
entered in col. 15. It is immaterial 
whether the cards are blank when placed in 
the hopper (as they would normally be in 
this application) or prepunched: they will 
not be read. The file is to be fed from 
hopper 2 of the MFCM (Device code MFCM2) . 
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An accounts receivable transaction list 
(file L5ARTRNS) is tc be printed en an IBM 
1403 Printer, or en an IBM 2203 Printer 
under control of the lower feed. The 
Device cede for either is PRINTER (or 
PRINTLF) . The printer can only be output 
(0 in col. 15) . 

File Designation, and Order of File Entries 

The entries in column 16 designate that 
0LDBALC1 cards (P in col. 16) are processed 
ahead of matching $TRNSACT cards (S in ccl. 
16) . For the same reason, the CIDEALC1 
file is entered ahead of the $TRNSACT file- 
-and this corresponds to their order en the 
Input Specifications form. 

Both the code in col. 16 and the order 
in which the files are listed en the File 
Description form are ignored in Model 20 
card RPG . They are required only for com- 
patibility with ether RPGs. 

End of File 

The E in ccl. 17 of the $TRNSACT file spec- 
ifies that the job is tc te terminated 
after the last card of this file has been 
processed--regar dless of whether the 

0LDEALC1 file was exhausted earlier, 



at the same time, or still has unprocessed 
cards left. 

If column 17 were blank for both input 
(or combined) files, or contained E for 
both, the job would not be terminated until 
both files are exhausted. 

Col. 17 is not used with output files, 
and is therefore blank for the NEWBAL1 
file. 

Sequence 

The A in column 18 specifies that the input 
(or ccmbined) files are in ascending 
sequence. Multiple input files must be in 
sequence, and all must be in the same 
sequence. 

Comments 

The entry in cols. 66-74 of the $TRNSACT 
file line will be listed at program-genera- 
tion time, on the same print line as the 
File Description Specifications for this 
file. In card RPG, its only function is a 
comment to the programmer or operator 
(e.g., "remember to check stacker 2 during 
program execution: it will contain problem 
cards") . 
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INPUT SPECIFICATIONS (MANDATORY) 






GE»EBAt_INFOEMATICN 

The input specifications (see Figure 16) 
serve to 

1. Establish the processing priority for 
matched cards from multiple input (or 
combined) files 

2. Identify card types within an input or 
combined file 

3. Specify card-type sequence within the 
file 

4. Direct input- or ccmhin€d-file cards to 
stackers on the basis cf card type 

5. Define input fields, and their data 
formats 

6. Set indicators based on the status of 
individual input fields 

7. Identify control fields 

8. Designate fields to be matched between 
cards of multiple input (or combined) 
files 

9. Specify card field (s) for sequence 
checking 

Each input or combined file must be 
recorded on the Input Specifications form. 



A file consists of one or more card types 
in one hopper. 

Each card type that can exist in an 
input file must have at least a Sequence 
entry (cols. 15-16) in the Input 
Specifications — otherwise an error stop or 
perpetual program loop occurs when the card 
type appears during program execution. 
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At least one input or combined file is 
required for an RPG program. Input fields 
are defined only if they are to be read; it 
is possible tc perform an RPG job without 
any input fields (e.g., stacker selection, 
or error halt, based on card type) . 

Output files must net contain an entry 
en Input Specifications forms. 
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Figure 16. The Input Specifications Form 
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The entries for the Input Specifications 
form are divided into three categories, as 
shown in Figure 16. 

1. File and Card-Type Identification- — 
Columns 7-42 

This segment designates the file, iden- 
tifies the card types it contains, 
determines the order in which card 
types within the file should occur, and 
permits stacker assignments by card 
type. 

Each card-type identification uses a 
separate specification line, or group 
of lines, which must not contain any 
field description. 

The order in which multiple input 
(or combined) files are entered in the 
input specifications determines the 
relative processing priority of matched 
files: the first file entered thereby 
becomes the primary; the next one 
becomes the secondary; and a third one 
becomes the tertiary (or second secon- 
dary) file. (Also see Matching of 
Files.) 

2. Field descriptions — Columns 43-70 

In this segment, the input fields are 
defined, and their formats are 
described. Indicators may be set on 
the basis of positive, negative, cr 
zero/blank contents of input fields. 
Control fields, and matching fields for 
multiple files, are assigned here. 
Sequence-check fields may be specified. 

Each field description uses a separ- 
ate specification line. All field 
descriptions for one card type (or 
grouping of card types, if OR-relation- 
ships apply — see below) follow the 
specification of that card type (or 
card-type group) , beginning en the line 
belov the card-type specification. 

3. Sterling Sign Position — Columns 71-74 

Applies to Sterling currency fields 
(British monetary system) only. Net 
covered in this manual. See IBM 
System/360 Model 20 jt _Sterlinq Currency 
Plocessin3_Eoutinesj_ Form C2 6-3 6 05. 



FILE AMD CAED-TYPE IDENTIFICATION 

Fil e Name — Cols. 7-14 

Each file is given a separate name by the 
programmer — the same name used for that 
file in the File Description Specifica- 



tions, where the file name is associated 
with a particular I/O device. 



The name of each input cr combined file 
is entered on a separate line in this 
field. It must begin in column 7 with one 
of the 29 alphabetic characters, may con- 
tinue with alphabetic cr numeric charac- 
ters, and may be one to eiqht characters 
long. (See Definition of Te rms , for 
"alphabetic" and "numeric" characters— 
neither permits embedded blanks.) Field 
description must not appear in the same 
line. 

The file name is recorded once per file, 
on the first line for that file. If 
desired, it may be repeated for additional 
card types within the same file; but this 
is unnecessary. 



Sequence, Number, Option — C cls . 15-16, 

18 (Card-Type Sequence Check) 
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This check has no connection with a 
sequence check on the values in fields of 
succesive cards in a file (see cols. 61-62) 
nor with control-level groups (see cols. 
59-6C) . For instance, the correct sequen- 
tial position of a card type ameng other 
card types — but in the wrong control qroup 
— is not detected by entries in these 
fields. These entries merely verify that a 
specified seguence of card types iterates 
within the file and--with limitations — that 
the quantity of each card type adheres to a 
criterion on each iteration. Therefore, 
not every kind of error in card-type 
sequence is detected; nor is the last group 
in a file checked for completeness, so long 
as no detectable card-type sequence error 
occurs up to the point of the last card in 
the file. However, Control-Level specifi- 
cations (see ccls. 59-60) provide for 
guarding aqainst admixture of cards of the 
correct type but wrong ccntrol group; and 
simple Calculation Specifications entries 
can protect against most of the remaining 
card-type seguence errors net detected by 
entries in cols. 15-18 in the input speci- 
fications. (One such example appears in 
Figure 5D, Line 06.) Detailed explanations 
and illustrations of the card-type 
sequence-check operation follow later in 
this section. 
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The Sequence entries in cols. 15-18 in a 
specif icaticr line apply tc the card type 
in that line, as identified by specifica- 
tions in cols. 23-41. 

Card types in an OB relationship (see 
below) have no card^-type-seguence specifi- 
cations. The specif icaticns in the main 
line above the OR line (s) apply to the OE 
types, too. It is not possible to specify 
a different sequence position or guantity 
check to card types in an OE relationship. 

Seguence- — Cols. 15-16 

Columns 15-16 must both have an entry in 
the first specification line of every card 
type (i.e., no Sequence entry is made in an 
AND or OE line — see below). 



Mote : ANE and OE lines are identified by 
AND and OE"fc, respectively, in cols. 14-16 — 
see below. 

The entry in cols. 15-16 must consist of 
a two-digit number when the card-type posi- 
tion in relation to other card types in the 
same file is to be checked. 
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For card types whose relative positions 
are to be checked, the card type that is 
first in seguence in a file is assigned 
sequence number 1 in cols. 15-16. The 
next types in seguence are each assigned 
any desired higher number, in ascending 
sequence, in the order in which the card 
types occur in the deck. Gaps in the card- 
type sequence numbers are permitted. The 
card-type specification lines for each file 
must be written in the same order in which 
the sequence of card types for that file is 
numbered. 

When some but not all card types in a 
file are to be checked for relative posi- 
tion, the specifications for card types not 
to be checked for seguence (alphabetic in 
cols. 15-16) must precede those for all 
sequence-numbered card-types for that file 
— even though the cards themselves might be 
interspersed in the card deck among the 
seguence-numbered types, and may even occur 
between multiple cards of a single 
seguence-numbered type. 



Col. 17 must contain an entry when cols. 
15-16 contain a numeric Seguence number. 
Cols. 17-18 must be blank when cols. 15-16 
contain an alphabetic Seguence code. 

When there is only a single card type in 
a file (or all card types are in an OB 
relationship), cols. 15-16 may be alphabet- 
ic or numeric (if numeric, col. 17 must be 
coded 1 or K) . Alphabetic entries are 
recommended in this case, because of the 
contingency described in Warnings, item 
2(a) , below. 



Note; The rules for alphabetic and numeric 
Sequence entries stated above are compat- 
ible with other System/3 60 EPGs. The Model 
20 card RPG Program actually distinguishes 
between a Seguence entry defined as numeric 

(i.e., relative card-type position to be 
checked) and one defined as alphabetic 

(i.e., card-type position not to be veri- 
fied) on the basis of col. 15 alone; there 
is no restriction on the contents of col. 
16. Specifically, the Seguence code is 
defined as 

1. Alphabetic, if col. 15 contains any 
EBCDIC character other than blank 

(hexadecimal 40) and other than those 
in EBCDIC-table column F (upper half- 
byte hexadecimal F). 

Col. 16 may contain any of the 256 
EBCDIC characters (including "blank"). 

2. Numeric, if col. 15 contains any 
character in EBCDIC-table column F 

(upper half-byte hexadecimal F) . 

Col, 16 may contain any of the 256 
EBCDIC characters (including "blank"). 

The card-type seguence check is 
based on the EBCDIC seguence. 

See Appendix D and Figure D1 for 
explanation of EBCDIC. 



Number—Col. 17 

When cols. 15-16 contain a numeric Seguence 
entry, col. 17 must also contain an entry 
to specify the number of cards of this type 
in each iteration of card types: 1 or N. 

1 .= If the card type is present, there must 
be exactly one card of this type. 

N = If the card type is present, there must 
be at least one card of this type and 
there may be more than one. 

Column 18 determines whether the card 
type must be present. 

Column 17 must be left blank in AND and 
OR lines, and if cols. 15-16 contain an 
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alphabetic cod<e (nc card-type seguence 
check) . It is not possible here tc verify 
the quantity of cards of a type whose 
sequential position in relation to other 
types is not consistent (i.e., cannot be 
checked) . 

Option — Col. 18 

When col. 17 contains an entry (i.e. , cols. 
15-16 contain a Seguence number) , col. 18 
may be blank or contain the letter 0. 

* = This card type must be present in each 
iteration of card types. 

= Presence of this card type in each 
iteration cf card types is optional. 

Whether cnly one card or several 
cards may be present — if the type is 
present--is determined by the entry in 
col. 17; i.e., even if presence of a 
type is optional, a check is made to 
verify that--if the card type is pre- 
sent at all--cnly one card of the type 
is present if 1 is specified in col. 
17. (As clarified further on, this 
verification is not effective if all 
card types in the file are optional.) 

Column 18 must be blank if col. 1 7 is 
blank (nc card-type seguence check, or AND 
or OR line). When cols. 15-16 contain 
alphabetic entries (i.e., no check on posi- 
tion of card type) , the program assumes 
that the presence cf such card type is 
optional . 



specified or of the non-optional 
type.) See Figure 19C. 






WARNINGS: 

1. No card-type seguence cr guantity check 

is effectively performed at all if any 

cf these conditions apply: 

a. All card types in a file are 
cpticnal (0 in col. 18) or have 
alphabetic Seguence code in cols. 
15-16. See Figures 19A and D. 

b. One card type is ncn-optional (nu- 
meric entry in cols. 15-16, and 
blank in col. 18), but all others 
have alphabetic codes in cols. 15- 
16. See Figure 19E. 

c. One card type is required (numeric 
in cols. 15-16, blank in col. 18) 
and coded 1 or N in col. 17; only 
one other card type is specified 
with numeric seguence (eels. 
15-16), and it is coded N and C in 
cols. 17 and 18, respectively. (In 
this case, however, the first card 
of the file is checked tc verify 
that it is either cf the first type 
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b. However, if any card type with a 
numeric entry in cols. 15-16 is 
non-optional (no in col. 18), or 
if all card types have alphabetic 
entries in cols. '15-16, then an 
unidentified card type automatical- 
ly halts the system. See Figures 
19A and C. 

Figures 19A, B, C, and C illustrate 
these points. 



Example of Card-Type Seguence Check 

Figure 17A portrays an inventory file ready 
for updating. Figures 17B and C show 
alternative proper entries in cols. 15-18 
for such a file. Some aspects of the 
example may appear artificial, but were 
selected to maximize clarification. Figure 
18 illustrates the method the program fol- 
lows to check card-type seguence, using the 
card arrangement in Figure 17A. 
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/590 BALANCE " 

FORWARD 



/565 STOCK 

RECEIPT 



/5&5 BALANCE 
FORWARD 



/5l2 CUSTOMER 
ORDER -A 



3°*° 



GROUP 6,ETC. 



/5T2 BALANCE 
' FORWARD 




»- GROUP 4 



/481 BALANCE 
FORWARD 



^481 ORDER-B 



/481 CUSTOMER ^ 

ORDER-B 



j^248 ORDER-A 



/248 CUSTOMER 1 

ORDER-B 



/248 ORDER 
RETURN 



/S48 CUSTOMER 
ORDER-A 



/248~ STOCK 

ADJUSTMENT 



/248 ORDER-A 



/248 CUSTOMER 
I ORDER-B 



( 



(248 BACK ORDERS 



248 BACK ORDER 
SUMMARY 



/25§ BALANCE 
FORWARD 



(^24 ORDER-A 



(V2A ORDER-B T 



fl24 ORDER-A 



f 



/T24~ CUSTOMER 
ORDER-A 



124 BACK ORDER 
SUMMARY 



|T24 RETURN T 



^124 ORDER 

I RETURN 

f124 ADJUSTMENT "^ 



/124" STOCK 

ADJUSTMENT 



f!24 RECEIPT 

/l24 RECEIPT 



/124 STOCK 

RECEIPT 

/124 BALANCE 
FORWARD 



GROUP 1 



►• GROUP 3 



►- GROUP 2 



Figure 17A. Sequence Checking of Card Types within a file 
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Assu m pti cns. For each stock number: 

• There is one Balance Forward card, at 
the front. 

• The Balance Forward card may be followed 
by cne or more Stock Receipt cards. 

• There may be any number of Customer 
Order Return cards next. In calcula- 
tions, these are to be treated like Cus- 
tomer Order cards, type A. 

• There may next be one Back Order Summary 
card. 

• There must be cne or more Customer Crder 
cards last. There are two types, A and 
B, which are to be treated differently 
in pricing, but are treated as cne group 
in sequence-checking. Either type may 
appear first, the two types may be 
intermixed, and one or both may be 
represented in a group. 

• There may be one or mere Stock Adjust- 
ment cards, positioned anywhere in the 
group. 

Each card type is recorded in a separate 
specification line, and assigned an identi- 
fying Resulting Indicator number. (The 
next section explains how tc accomplish the 
identification. It is included here merely 
so that the entries in eels. 15-18 do not 
appear tc be the only ones in the line.) 

The numbers that appear on the cards are 
stock numbers. They are irrelevant tc the 
function cf cols. 15-18. They have been 
included for the sake of reality, and to 
illustrate the limitations of the check 
performed by entries in cols. 15-18. 

The first and fourth grcups of cards in 
Figure 17A are correct. The second, third, 
and fifth groups contain seme errors that 
would be detected as a result of the speci- 
fications in cols. 15-18, and some that 
would not. 

Explanatipns—F igure 17B . 

Note : 

1. The entries in eels. 19-27 are 
explained in the next section, which 
references this figure again. It may 
be ncted here merely that card-type 
Resulting Indicator numbers have nc 
connection with card-type seguence 
numbers. 

2. For convenience, little space has been 
left between specification lines in 
Figures 17B and C. It is, of course, 
assumed that — in actual use — the neces- 
sary number of lines are left tc accom- 



modate field descriptions (described 
later) . 



Line 01; The Stock Adjustment cards may 
appear anywhere in the group. Their posi- 
tion is therefore not to be checked, and 
(any) alphabetic characters must be 
assigned in cols. 15-16. (SA was selected 
as a mnemonic.) Cols. 17 and 18 must be 
blank when cols. 15-16 are alphabetic. All 
card types with alphabetic entries in cols. 
15-16 must be specified ahead of card 
types, within the same file, to be checked 
for seguence position. The Stock Adjust- 
ment cards therefore are the first type 
specified, for the INVENTRY file, in the 
input specifications. 
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i Stock Adjustment 

-i Balance Forward 
i Stock Receipt 
-Order Return 

-Back Order Summary 

^Customer Order - 

Type A 
-Customer Order - 

Type B 



Figure 17B. Seguence Checking of Card 
Types within a File 

The remaining card types in the file are 
to be checked for proper relative position 
among card types. They must therefore be 
recorded in the input specifications in the 
order in which they appear in the data 
file. 

Line_04j- °f t ^ ie car ^ types that can be 
checked for sequence, the Ealance Forward 
card must be first. It must, therefore, be 
numbered 01 in cols. 15-16. It must also 
be the card type specified first of all 
types within the file to be checked for 
relative position. There is to be one 
Balance Forward card per group; therefore, 
a 1 is entered in ccl. 17. Col. 18 is 
blank, because the presence of this card is 
mandatory. 
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Li ne 6: The next card type whose relative 
position is to be checked is Stock 
Receipts. It is assigned any two-digit 
number higher than 01 (06 was arbitrarily 
selected) . There may be any number of 
cards of this type in each group; there- 
fore, N is specified in col. 17. Ccl. 18 
contains the letter 0, because presence of 
these cards in each group is not reguired. 

Line 08 : Any number higher than the pre- 
ceding number (06) is assigned to the next 
card type in seguence. (Seguence number 11 
is an arbitrary choice.) Again, there may 
be any number of Order Return cards, and 
their presence is optional. Cols. 17 and 
18 are therefore ceded N and 0, 
respectively. 

line 1 0: The Eack Order Summary card is 
assigned any higher seguence number than 
the Order Return cards. (The next number 
in seguence, 12, was chosen.) Its presence 
is optional (0 in col. 18) but, if present, 
there must be no more than one (1 in 
col. 17) . 

Lines 12 and 13: Customer Order cards come 

next, and are therefore assigned any number 
higher than 12 (which was used for the pre- 
ceding card type) . Because there may be 
any number of Customer Order cards in a 
group, N is specified in ccl. 17. Because 
there must be at least one card of this 
type in each group, col. 18 (Option) must 
be blank. 

These specif icaticn lines illustrate two 
further points: 

1. No card-type seguence-check entry can 
be made for an OE line. (OR specifica- 
tion lines are discussed fully later.) 
For purposes of sequence-checking cf 
card-type position, both card types — 
those defined in the basic specifica- 
tion line, and those in the OR line — 
are treated as one type: 

a. The presence in the proper position 
of either type satisfies any 
requirement for presence (if nc 
in col. 18); 

b. The presence of either type in the 
wrong position is regarded as an 
error; 

c. If 1 is specified in ccl. 17, and 
there is one card cf each of the 
two types in a group, this is 
treated as an error as though there 
were two cards of cne type. 

d. CR lines offer a method cf checking 
the position of several card types 
in relation to others, when the 
several OR card types nay cccupy 
any relative position to each 
other. 



2. Sometimes it is desired to treat two 
similar input card types uniformly in 
most calculations and/or for output; 
but they appear in different positions 
in the input file, and are to be 
checked for proper relative position. 



Order Return and Customer Order 
(Type A) cards fit this description. 



Note that these two card types were 
assigned different seguence numbers (11 
and 15, respectively) , but the same 
card-type Resulting Indicator (21) . 
(The next section deals with Resulting 
Indicators in detail.) 



Explanations — Figure 17A, and Seguence 
Check as Specified in Figure 17B 



The first group of cards (Group 1 : stock 
number 124) encompasses every type of card 
provided for in Figure 17B, It is correct 
in every respect, and no card-type 
seguence-check error stop will occur. 

Group 4 contains the minimum number and 
types of cards allowed; all others, are 
optional. No error stop occurs. 

Groups 2, i 3 / . and 5 contain various errors, 
introduced deliberately to illustrate the 
effectiveness and limitations of the card- 
type sequence check based on specifications 
in cols. 15-18: 

Grou p 2 (stock number 248) is headed by a 
Balance Forward card with stock number 258. 
No error stop occurs. The criteria of 
cols. 15-18 are met: the Balance Forward 
card is present, it follows a Customer 
Order card, and there is exactly one 
Balance Forward card. Cols. 15-18 specifi- 
cations do not cause checking of control- 
level fields. 

There are two Back Crder Summary cards 
in Group 2. An error stop occurs, because 
1 is specified in col. 17. 

A Stock Adjustment card is intermixed 
among Customer Order cards in Group 2. Our 
assumptions stated that Stock Adjustment 
cards may be located anywhere; they were 
coded alphabetic in cols. 15-16, and are 
not checked for position. Figure 17C pre- 
sents a method for allowing a card type 

(e.g., the Stock Adjustment cards) to occu- 
py any of several positions, and yet check- 
ing against its occupying any others, 

(Alternatively, specifying the Stock 
Adjustment cards to be in an OR relation- 
ship to Stock Receipt cards would check 
that they follow the Balance Forward card, 
or are among or behind Stock Receipt 
cards.) 



^»n^r 



^%^tr 
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One of the Customer Order cards in Group 
2 (stock number 548) does not telong in 
this group. The card-type sequence check 
will not detect this. 

In Group 2, an Order Return card is 
among the Customer Order cards, instead of 
being ahead of the first Back Order Summary 
card. This causes an error stop. 

Group 3 commences without a Balance Forward 
card. This is not detected by the card- 
type sequence check. The Customer Crder 
card at the frcnt of Group 3 acts as a con- 
tinuation of the Customer Order cards of 
Group 2. 
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■ Balance Forward 

■ Stock Adjustment 
• Stock Receipt 
■Stock Adjustment 
•Order Return 

Back Order Summary 

.Customer Order - 
Type A 

Customer Order - 
Type B 






Figure 17C. Seguence Checking of Card 
Types within a File 

Group 5 lacks any Customer Order card. An 
error step cccurs when the Balance Forward 
card of Group 6 is read, because no Custom- 
er Order card preceded it. 



Explanations — Figure 17c 

Figure 17C presents a method of permitting 
an optional card type to appear in several 
(i.e., two, in this example) acceptable 
positions, yet signalling an error if it 
were to appear in any ether position. 
Otherwise it is identical with Figure 17B. 

Change the assumptions for Stock Adjust- 
ment cards to read: they may directly fol- 
low- the Balance Forward card and/or Stock 
Receipt cards only. 

By entering the specifications for Stock 
Adjustment cards as shown in lines 03 and 
07 — instead of with alphabetic code in 
cols. 1 5— 16, as in Figure 17B, line 01 — 
presence of this card type is permitted in 
either or both of these positions, and 
limited to these two positions. 

The position of the Stock Adjustment 
card in Group 2 of. Figure 17A will now be 
signalled as erroneous. 

Note that this technigue reguires 
assignment of different Sequence numbers 
(cols. 15-16) for the several permitted, 
positions, but that the same card-type 
Resulting Indicator is assigned. The 
single Resulting Indicator number then 
always references that card type in calcu- 
lation or output specifications, regardless 
of the position where the card appeared. 

Nature of the Card-Type Sequence Check 

A brief explanation of the method the pro- 
gram follows to verify card-type sequence 
will further clarify the preceding example. 
It is also necessary tc proper specifica- 
tion cf Record Identification Codes — the 
next section of the manual, which 
references this discussion. 

a. If all card types in a file have alpha- 
betic specifications in cols. 15-16, 
the program checks, as each card is 
read, for the first card type specified 
for the file just read, then the 
second, etc. — until a match is found, 
based on Record Identification Code (or 
absence of any identification 
specifications — see next section) , or 
until all specifications for card type 
have been exhausted without encounter- 
ing a match. (An error stop then 
occurs. ) 

b. If all card types in a file have numer- 
ic specif icatiens in cols. 15-16, the 
program starts its check, as each next 
card is read, at the first card type 
that may legitimately have appeared 
next — it does not necessarily begin at 
the first specification line, except at 
the start of program execution. 
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c. 



If this does not match, it checks for 
the next card type specified, and so 
on, through the last card-type specifi- 
cation (for that file) in the input 
specifications, continuing in a circle 
up tc the first cne, etc. --until a 
match is found, or an error detected 
(illegal card-type sequence cr quanti- 
ty) . An error stops the system--except 
in the particular undefined-card-type 
situation described abcve (Warnings, 
item 2(a)), when the search circle 
(loop) continues ad infinitum. 

(No£f : Card types in an OE relation- 
ship are checked consecutively after 
the main line, until a match is fcund 
or the OB lines are exhausted.) 

If the specified card types are a com- 
bination of (a) and (b) above, the pro- 
gram first searches through the card- 



type specifications vith alphabetic 
entries in cols* 15-16, as in (a) 
above. If no match is found, it 
ccntinues--as in (b) above — at the 
first card type with numeric specifica- 
tion in cols. 15-16 that may legiti- 
mately have appeared next. If this does 
not match, it continues in a circle of 
the card-type specifications with nu- 
meric entries in cols* 15-16, until a 
match is found or an error detected. 
(Eut see Warnings^ item 2(a), above.) 

Note: When several or all card types 
have alphabetic Seguence codes in cols. 
15-16, process time is minimized by 
recording the mcst-f reguently occurring 
type with alphabetic Seguence code 
first, the second most-common type 
next, etc. The program then makes the 
least number of attempts to match a 
card-type definition to cards read. 
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Note: 

1. Card-type number used is Resulting Indicator number in Figure 17E. Because Indicator 
21 is used twice, the Seguence number is shown in parentheses. 

2. The illustration after each error proceeds as though the error card did not exist 

(dotted line) --merely so that illustration can be continued. 

Figure 18. Example of Card-type Seguence-Check Action Based on Figures 17A and B 
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Figures 19A, B, and C highlight several 
potential trouble spots that can arise if 
the card-type seguence-check operation is 
not fully understood. The problems were 
mentioned under Warnings, above. The num- 
bers in the upper left-hand corner of the 
cards are values in a potential control 
field which are ignored by the card-type 
seguence check. 
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Figure 19A 
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Figure 19B and C 





j / 286 TYPE B 


i 

i 




286 TYPE B 


i 
i 




135 TYPEC 

i 










3 4 5 


E 

6 


Filename 

7 8 9 10 11 12 13 14 


15 16 


z 

i 

E 
Z 

17 


3 

O 

18 


19 20 


Recorc 




i 




Position 

21 22 23 24 


z 

z 

25 


a 

26 


27 




o! i! 




SALSSTAT 


TB 






11 


79 




c 


M 




o; 2 






















Figure 19B 
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Figure 19. Potential Card-Type Seguence-Check Trouble Spots 
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Figure 19A 
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An errcr stop occurs when the unidenti- 
fied card type is read, since all opticnal 
card types are coded alphabetic in cols. 
15-16. (See Warnings, item 2(b), above.) 

Figure 1 9B 

The duplicate of card type A (with number 
123) is not detected. All other types are 
optional and the program dees net knew that 
the twe cards do not belong to two dif- 
ferent groups. (See Warnings, item 1(b), 
above.) 

The fact that a type-C card precedes 
types A and B is net signalled, because 
types with alphabetic specification in 
cols. 15-16 may appear in any relative 
positions. 

Although a card of type A is reguired in 
every grcup (nc in col. 18), its absence 
from groups numbered 135 and 286 is not 
detected. The program has no means of 
recognizing that the card types C and E, 
numbered 135 and 286, respectively, are not 
part of the preceding grcup (No. 123), or 
of some following group of unknown size in 
which a type-A card might yet appear — 
because card types defined by alphabetic 
code in eels. 15-16 can appear in any crder 
and guantity. (See Warnings, item 1(b), 
above.) 

Figure 19C. Using same card arrangement as 
Figure 19B, but different 
specifications. 

An error stop occurs at the very begin- 
ning, because a type-C card is read before 
a type A . 

Nc stop occurs for the duplicate type-A 
cards: the program does net know that they 
do not represent two groups, since presence 
of type-C cards is optional. (See Warn- 
ings, item 1(c), above.) 

An error stop occurs when any of the 
Type-B cards are read, because they are 
undefined — and there is at least one ncn- 
opticnal card type specified. (See Warn- 
ings , item 2(b), above.) 



The absence of the type-A card for group 
135 is net detected because, as far as the 
program is concerned, the type-C card num- 
bered 135 could belong to group 123. (See 
Warnings, item 1 (c) , above.) 



Figure 19D 
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•When the undefined card type (group 186) 
is read, the program goes into a perpetual 
loop. (See Warnings, item 2(a), above.) 

The entries in line 04 of the specifica- 
tions are included only tc illustrate that 
no card-type Seguence specifications are 
entered for an AND line. 



^£izTl£e_Eefinition--Cols i _Jl-2_0 x _2 3j : 27 x 
30-34, 37-41 

If different input card types are to be 
processed differently, or are to be checked 
for card-type seguence (see cols. 15-18), 
they must cf course be distinguished for 
the program. The distinguishing entries in 
cols. 19-4 1 are made in the card-type iden- 
tification lines, above the field- 
definition lines. 

Columns 19-20 provide for the entry of a 
distinguishing reference code, termed a 
card-type Resulting Indicator, for each 
card type. The distinction between card 
types is based on the presence or absence 
of specific punches in each type of card, 
as designated by the programmer by entries 
in cols. 23-41. 

The Resulting Indicator associated by 
the programmer with each card type makes it 
easy to condition calculation and output 
specifications to be executed only for cer- 
tain card types (or predetermined seguences 
of card types) . 

When a new card has been read, the pro- 
gram checks the Record Identification Codes 
(cols. 23-41) of successive card-type iden- 
tification lines, until it finds a match 
between the specifications in cols. 23-4 1 
and the punches in the corresponding 
columns of the card just read. It then 
assigns the card-type Resulting Indicator 
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that appears in cols. 19-20 of the line 
whose ccl. 23-41 entries match the card. 
(For the time in the cycle when the pre- 
vious card's indicator turns off, and the 
new card's indicator turns on, see Figure 
6 : EJP_G_ Program L ogic . ) 

Two important related pcints should be 
noted: 

1. The program does not necessarily begin 
each time at the first card type 
entered in the input specifications, in 
its attempt to match the punches in the 
new card just read against the Record 
Identification Codes. 

The preceding secticn headed Nature 
of the Card-Type Seguence Check , and 
Figure 18, explain the starting point 
of the comparison and the order in 
which it is carried cut. It is 
affected by the Seguence entries in 
cols. 15-16. 

2. Once a match has been found between 
punches in the card just read and 
Record Identification Code entries 
(.cols. 23-m, including possible AND 
lines — see below) , nc further card-type 
identification lines are searched. 



problem. (The possible entries in 
cols. 19-41, and their significance, 
are fully described in the next two 
sections. ) 

Explanation of Figure 20 

a. Assume that only the Eecord Identifica- 
tion Codes in field 1 of Figure 20 were 
entered (cols. 23-27) — ignore cols. 30- 
41. Also assume that all three card 
types in Figure 20 contain a 1 in col. 
80; that the second card type also has 
a 1 in col. 78; and that the third card 
type contains a 2 in col. 78, besides 
the 1 in col. 8C. The following 
results occur: 

If the program begins its attempt to 
match the punches in the new card just 
read against the specifications in 
Eecord Identification Code line 01, the 
card will always match and indicator 1 
is always assigned. No attempt is made 
to check for punches in col. 78, 
because a match has been found. 

If the program begins its attempt to 
match with the entries in line 03, any 
of the three card types is correctly 
identified . 
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Therefore, unless card-type identi- 
fication specifications in cols. 23-41 
are mutually exclusive for different 
card types, an undesired identification 
may be made. Figure 20 illustrates the 



If the program begins its attempt to 
match with the entries in line 05, a 
card of the third type is correctly 
identified, and indicator 05 assigned 
thereto. A card of either the first 
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or second type is identified as the 
first type, and assigned indicator 01 . 
This occurs because, if the card dees 
not contain a 2 in col. 78, it is next 
tested for a 1 in col. 80. Ihis condi- 
tion is satisfied by cards of all three 
types, and a match therefore occurs as 
soon as line 01 specifications are 
compared . 

b. Assume all the entries shewn in Figure 
20. All three card types are then 
always correctly identified, because 
cards with 1 or 2 in ccl. 78 are 
excluded from matching the specifica- 
tions fcr cards of the first type. 

Resulting Indicator — Cols. 19-20 (Card-Type 
Indicator) 

Any of the RPG indicators except L0 (see 
earlier section, Indicators) may be 
assigned by the programmer to each card 
type, and entered in cols. 19-20 in the 
first input specification line for that 
card type. The entries in cols. 23-41 
associate the indicator in eels. 1S-2C with 
a particular card-type. 

The object program can then be directed, 
by use of the indicator cede, to execute 
certain calculation and/or output specifi- 
cations only when processing that card 
type — or, if desired, only when processing 
a card type othe r than that one. 

Normally, any of the indicators 1-99 
are assigned as card-type Resulting Indica- 
tors. The indicator on from the previous 
card is set off by the program before the 
indicator for the new card is set on. 
Thus, there is only one card-type Eesulting 
Indicator on at any one time, if only indi- 
cators 01-99 (or H1, H2--see below) are 
used for card-type identification. 

It is permissible to assign the same 
indicator to more than one card type. The 
same indicator, or two different indica- 
tors, alsc may be assigned to two card 
types in an CR relationship (see below). 

Indicators H1 and H2 are suitable card- 
type Resulting Indicators to represent an 
erroneous card type. The system then halts 
after the card has been completely pro- 
cessed and before the next card is pro- 
cessed. (It can be restarted by depressing 
the CPU START key twice.) 

Indicators may be assigned to the 
various card types in any order; numeric 
indicators (01-99) need net be in ascending 
sequence for successive card-type identifi- 
cation lines. 

It is permissible net tc assign any 
Resulting Indicator to a card type (i.e.. 
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The use of indicators has already been 
illustrated in preceding sections, some 
dealing with other aspects of RPG (Figures 
5, 9, 12, 17, 19, and 20). Further 
examples specific tc indicators and card- 
type identification follow discussion of 
cols. 23-41. 

Mote : Card-type Resulting Indicators other 
than 01-99, H1 and H2 should not be 
assigned without a complete understanding 
of the sections Program logic Flow , Indica- 
tors , and Indicator Hierarchy, in the 
chapter Programming for RPG — General 
iS f J2£SL§: i ion . 

Record Identification Codes — Cols. 23-27, 
30-34, 37-41 (Card-Type Identification) 

These fields provide for the identification 
of different card types on the basis of 
specific punches — or the absence of specif- 
ic punches — in designated card columns. 

When the punches in a card meet the cri- 
teria established in these fields for a 
card type, the indicator (if any) assigned 
(cols. 19-20) to that card type turns on 
before total-time processing, and remains 
on through detail-time processing of that 
card. During that time, all other card- 
type Resulting Indicators are off. 



Exceptions: More than one card- type 
Resulting Indicator may be on during part 
or all of the processing of a card if 

1. An indicator is assigned as a card-type 
Resulting Indicator that is not stan- 
dard for that purpese (such as MR) ; or 

2. The same indicator is assigned as both 
a card-type Eesulting Indicator, and as 
Field Indicator and/or calculation 
Eesulting Indicator; cr 

3. An indicator is assigned as a card-type 
Resulting Indicator, and the same indi- 
cator is turned on by a SETON instruc- 
tion in the calculation specifications. 

Similarly, although a Resulting Indica- 
tor may be assigned to every card type, all 
of them could be off for part or all of the 
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processing of a card for the above reasons. 
(In item 3, above, SETOF would then apply* 
instead cf SETCN.) 

See Progr am Log ic Flo w, Indic ator s, and 
In d i c a to r Hierarchy . 
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none of the identification lines for that 
card type has an indicator specified) . 

AND and OR relationships may both exist 
for one card type. Also, by using AND with 
negation of a criterion, together with an 
OR line, exclusive OR conditions can be 
specified. 

There is no limit (other than the number 
of columns in a card, and core storage 
capacity) to the number of card-column 
characters that may be used as criteria in 
an AND or OR relationship to identify a 
card type. 

There is a situation in which it is 
desirable to treat two or more dif ferent 
card types in an OR relationship. 
Different card-type Resulting Indicators 
are then assigned in the main line and the 
OR line(s}. This application is described 
under Field-Record Relation (cols. 63-64). 
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In Model 20 card RPG, it does not 
matter, when using less than three Record 
Identification Code fields (cols. 23-27, 
30-34, 37-41) in a line, which cf the three 
fields are used. It is also permissible to 
use an AND line even though not all three 
fields are used in the main line. For 
compatibility with ether RPGs, however, the 
first field should always be used, the 
second field should be used if two or more 
are needed in an AND relationship, and an 
AND line should not be used unless more 
than the three fields in the preceding line 
are needed. 
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The kinds of entries that can be made in 
each of the three Record Identification 
Code fields are identical. Therefore, only 
the first field (cols. 23-27) is described 
in detail. (Cols. 21-22, 28-29, and 35-36 
do not apply to Model 20 card RPG. They 
may be left blank or coded with zeros.) 
Illustrations of all common types of 
entries for card-type identification fol- 
low. (Earlier illustrations appear in 
Figures 5, 9, 12, 17, 19, and 20.) 

Position (cols. 23-24) : The number of the 

card column (right- justified) to be checked 
for the identifying code punch. A leading 
(tens-position) zero need not be recorded. 

Character (col. 27): The character to be 

matched against the contents of the card 
column specified in cols. 23-24. Any of 
the 256 EECDIC characters, including blank, 
is a valid entry. (But see C/Z/D, below.) 

Not (col. 25) : 

* = The criterion is satisfied if the spec- 
ified character (as per col. 27) 
appears in the designated (cols. 23-24) 
card column. 
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N = The criterion is satisfied if the spec- 
ified character does not appear in the 
designated card column. 
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C = Character. 

The entire character specified in col. 
27 is compared with the entire 
character in the data-card column. Any 
of the 256 EBCEIC characters may be 
used. 

Unless it is necessary to specify D 
or Z (see below) , to eliminate the zone 
or digit portion of a character, C 
should be entered in ccl. 26. This 
conserves core storage and program 
execution time. 

1 = Zone. 

The zone portion of the character spec- 
ified in col. 27 is compared with the 
zone porticn of the character in the 
designated (col, 23-24) data-card 
column. 

Considering first crly the most com- 
mon comparisons: 

12 -zcne: If 5 (12-punch), any one of 
the letters A through I, character u, 
or any one of the remaining six charac- 
ters in the IBCBIC-table column 
labelled C is specified in col. 27, it 
will match as equal in zone to any of 
these 17 characters in the data-card 
column (specified in cols. 23-24) . Any 
ether characters in the data-card 
column are treated as unmatched. 

1 1-zcne: If - (11-punch), any one of 
the letters J - R, character (3, or any 
one of the remaining six characters in 
the EECDIC-table column labelled D is 
specified in ccl. 27, it will match as 
equal in zone to any of these 17 
characters in the data-card column 
(specified in cols. 23-24) . Any other 
characters in the data-card column are 
treated as unmatched. 

No-zon e: If col. 27 is blank, contains 
any cne of the digits C-9, or contains 
any cne of the remaining six characters 
in the EECDIC-table column labelled F, 
it will match as egual in zone to any 



of these 17 characters (actually, 16 
characters and blank) in the data-card 
column (specified in cols. 23-24) . Any 
other characters in the data-card 
column are treated as unmatched. 



Expressed mo 
ized to the ful 
D, Figure D1) : 
EBCDIC characte 
col. 27. It wi 
to any data-car 
in the same col 
and be unmatche 
character, with 



re broadly, and general- 

I EBCDIC (see Appendix 
Any one of the 256 

rs may be specified in 

II match "equal" in zone 
d character that appears 
umn of the EBCDIC table, 
d tc any other data-card 

three exceptions: 



If S (12- 
in table col 
col. 27, & i 
of EBCDIC-ta 
(only) . How 
Characters i 
column label 
other than & 
the data car 
character sh 



punch) or any character 
umn C is specified in 
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ble column labelled C 
ever, if one of the 
n the EBCDIC-table 
led 5 is specified, 

(12-punch), then & in 
d matches only any 
own in that column. 



If - (11-punch) or any character 
in table column D is specified in 
col. 27, - (11-punch) is considered 
to be part of EBCDIC-table column 
labelled D (only) . However, if one 
of the characters in the EECDIC- 
table column labelled 6 is speci- 
fied, other than - (11-punch), then 
- (11-punch) in the data card 
matches only any of the characters 
shown in that column. 

If column 27 is left blank, or 
any character in table-column F is 
specified, ± is considered to be 
part of EBCDIC-table column 
labelled F (only) . However, if one 
of the characters in the EECDIC- 
table column labelled 4 is speci- 
fied, other than * # then t> in the 
data card matches only any charac- 
ter shown in that column. 



D = Diqit. 

The digit portion of the character spec- 
ified in col. 27 is compared with the 
digit portion of the character in the 
designated (cols. 23-24) data-card 
column. Any of the 256 EBCDIC charac- 
ters (including blank) may be specified 
in col. 27. 

Any character in col. 27 will match 
"equal" in digit to any data-card 
character that appears in the same row 
of the EECDIC chart. 

Figure 21 gives examples of C, Z, and D 
specifications, and the results of compar- 
ing various characters. 
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Result of 
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Match 
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Match 
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Match 

Non-match 

Match 

Non-match 

Match 

Match 

Match 
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Match 

Non-match 
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Non-match 



Comments 



In each case, any other character in the 
designated data-card column would result in 
a non-match: C in col^ 26 causes compari- 
son of the entire character. 



Both have same zone — EBCDIC-table column C 
Both in EECDIC-table column C 
When a character in column C is specified, 
(&) is assigned to column C 
Both in EBCDIC-table column C 
When (&) specified, it is assigned to 
EBCDIC-table column C 

When (S) specified, it is assigned to 
EBCDIC-table column C - not 5 
When any character, except (&) , in EBCDIC- 
table column 5 is specified, (&) remains in 
column 5 

When .(-) is specified, it is assigned to 
EBCDIC-table column D 
Both in EECDIC-table column D 
Both in EBCDIC-table column D 
Both in EBCDIC-table column D 
When a character in column D is specified, 
(-) is assigned to column D 
When a character in column D is specified, 
(-) is assigned to column D 
When (-) specified, it is assigned to 
EBCDIC-table column E - not 6 
When any character, except (-) , in EBCDIC- 
table column 6 is specified, (-) remains in 
column 6 

Zone punches in different EBCDIC-table 
columns 

When a character in column D is specified, 
(-) is assigned to column D 
Same zone (no-zone) , because in same 
EBCDIC-table column 

When 15 specified, it is assigned to EECDIC- 
table column F (nc-zcne) 

When a character in column F is specified, 
15 is assigned to column F 

When t specified, it is assigned to EBCDIC- 
table column F - not 4 

When any character, except K, in EECDIC- 
table column 4 is specified, 15 remains in 
column 4 

When 15 specified, it is assigned to column 
F, and does not match zone in column E 
Zone in column E does not match zone in 
EBCDIC-table column 4 

Zone of column F (no-zone) does not match 
zone of column E 



Figure 2 1 (part I of II). Eesults of Comparing Various Data-Card and Record- 
Identif ication-Ccde Characters, with Specification of C, Z, or D 
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Figure 2 1 (part II of II). Results cf Comparing Various Data-Card and Record- 
Identif ication-Ccde Characters, with Specification of C, Z, or D 
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a. The card type is assigned indicator 05 
when col. 80 contains an & (12-punch), 
any cf the letters A - I, or any of the 
remaining seven characters (12-0, and 
12-C-S-8-2 through 12-C-9-S-7) in the 



column labelled C in the EBCDIC table 
(see Appendix D, Figure D1). 



Indicator 10 is assigned to a card that 
meets all of these five conditions: 

1. Col. 1 contains a 12-punch, and no 
other punch (the specification is 
C, not Z) ; and 

2. Ccl. 80 does not contain a 
12-punch, or any of the letters A - 
I, or any of the remaining seven 
characters in column C of the 
EBCDIC table; and 

3. Col. 79 contains cne of the 16 
/ characters in column 5 of the 

EECEIC table. (Note that a 
12-punch is cne of these 16 
characters.); and 

4. Col. 75 does not contain any of the 
characters in row 4 of the EBCDIC 
table (e.g.: 4, U, M, D, 12-11-0-4 
etc. , to 12-9-4) ; and 
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Figure 22. Examples of Card-Type Identification Entries 



c. 



Col. 5 contains one of the 16 
characters in column E of the 
EECDIC table (e.g.: 0-8-2, 
11-0-9-1, S, T, etc., to 
11-C-9-8-7). Note that no match 
occurs if the data card is blank, 
cr punched zero enly (i.e., the 
unit record Hollerith code 0-zone 
for letters S - Z does not apply) . 



This example also illustrates AMD 
lines. Note also that a leading may 
be omitted from card-cclumn number 
(e.g., col. 1) or recorded (e.g., col. 
05) . 

Indicator 08 is assigned to a card that 
meets either of these criteria: 

1. Col. 1 contains cne of the 
characters in row B of the EBCDIC 
table (e.g.: $, 12-11-0-9-8-3, 
comma, 12-9-8-3, etc.) ; cr 

2. Col. 1 contains a 4 (and no ether 
punch) and col. 5 contains any 
punch (i.e., is net blank). 



This example also illustrates an 
(inclusive) OR relation, with either of 
two card types assigned the same 
Resulting Indicator. It also shows the 
combination of an AND relationship (two 
criteria in the OR line) with the OR 
relationship. 



Indicator 25 is assigned when col. 1 of 
a card contains an 11-punch, any of the 
characters J - R, or any of the remain- 
ing seven characters in column D of the 
EBCDIC table (11-0, 12-11-9-8-2, etc.). 

Indicator 26 is assigned when col. 5 
is blank, contains any of the digits 
0-9, or contains any of the remaining 
six characters in column F of the 

EECDIC table (12-11-0-9-8-2, etc.) 

The value of this type of OR 
r elaticnship--where two card types are 
assigned different indicators, yet 
placed in an OR relationship — will 
become clear when Field-Record Relation 
(cols. 63-64 in the input specifica- 
tions) is discussed later. 



o 



i 1 
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e. Indicator 12 is assigned when either 
one of two sets of criteria is met: 



Ccl. 1 contains a 1 (and no other 
punch) and ccl. "75 does not contain 
a 2 alone (other characters that 
incorporate a 2-punch are per- 
mitted, since the specification in 
col. 33 is C for an exact character 
match) ; or 



Col. 75 contains a 2 (and no ether 
punch) and ccl. 1 does net contain 
a 1 alone. 



This illustrates an exclusive OR 
relationship: the criteria for indica- 
tor 12 are satisfied if either of two 
conditions applies (1 in ccl. 1 or 2 in 
col. 75) , but not if both apply. 

f. This assumes that the card is wrong if 
both of the conditions occur that were 
handled in entry (e) as mutually 
exclusive. 

If the card contains both a 1 
(alone) in ccl. 1 and a 2 (alone) in 
col. 75, indicator H1 is assigned. 
Unless the H1 (or H2) indicator is 
reset by a programmer's specification 
before then, the system halts after the 
card has been completely processed. 

The H1 indicator may be used like 
any ether indicator. It might logical- 
ly be utilized to condition calculation 
and output specifications not to be 
executed when H1 is en (by specifying 
NH 1 in the conditioning indicator 
fields) . 

Throughout, in Figure 22, notice that — 
while numbered Sequence entries (in cols. 
15-16) must be in ascending-number order, 
and must start with 01 — Resulting Indica- 
tors can be assigned in any order. 

Previous sections stated that, when an 
input card of an undefined type is read, 
either an error step or a perpetual program 
loop (see Warnings, item 2(a), above) 
results. To avoid a perpetual program loop 
or an error stop which requires card handl- 
ing for restart, and to facilitate bypas- 
sing of calculation and output specifica- 
tions for invalid cards, the user should 
make provision for invalid cards in the 
card-type definition specifications (cols. 
19-4 1) for each file. Figure 23 illus- 
trates three approaches. For simplicity, 
enly two legitimate card types are used in 
each example; and the assumption is made 
that one type contains a 1 (enly) in ccl. 
5, and the other a 2 (only) . 
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Figure 23. Examples of Protection Against 
Undefined Card Type 
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plex to restart, does not provide a unigue 
indicator to condition execution of speci- 
fications for invalid card types, and does 
not offer a single method to stacker-select 
such a card (with or without stopping) . 



Exam ple 2 shows an eff 
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Indicator 99 does not cause a systeir 
step; but otherwise it may fce used like the 
H1 indicator in Example 1 to condition the 
execution of specifications. If a halt 
after an invalid card is desired, H1 cr H2 
can, of course, be assigned in place of a 
numeric indicator like 9S. 

Example 3 takes advantage cf the fact that 
card-type identification specifications 
with alphabetic Seguence designation (cols. 
15-16) are always tested in the crder in 
which they are entered (see Nature , of_ the 
Card -Type Seguence Check) . The example, 
however, assumes that no card-type seguence 
check is reguired. 

Specification line 17 will be tested 
against a data card only when neither the 
specifications in line 13 nor those in line 
15 matched the data card. Since nc Record 
Id entif icaticn Cedes appear in eels. 23-41 
of line 17, it will always match against a 
data card when tested. Thus, whenever 
neither line 13 nor line 15 matches the 
data card, line 17 will be tested and it 
will match — therefore, all invalid cards 
will be associated with line 17. 
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Example 3 illustrates a convenient tech- 
nigue for identifying invalid card types 
when specifications for invalid types would 
be complex. For example: If there are 
several valid card types, each with 



numerous AND and/or OR relations, it could 
become involved to specify the Record Iden- 
tification Codes for an invalid type. Such 
specifications would reguire the negation 
of all possible valid card-identification 
punch combinations. The limitation of the 
approach in Example 3 is its reguirement 
that the valid cards cannot be checked for 
card type seguence. 

Note that, with this method, the entry 
for the invalid type must always be last 
for that file — if it is first, every card 
will be treated as invalid, since there are 
no specifications in cols. 23-41 to exclude 
valid cards from matching the line. 

The stacker-select entry in col. 42 of 
all three examples is explained below 
(under Stacker Select) . 

Records in an OR relationship 

Records in an OR relationship must be in 
the same file. The three types of CR rela- 
tionships are described below. 

1. Identical Fields and Similar 
Processing: 

The input fields of several card types 
are in the same columns, have the same 
format, and identical field names 
apply. No distinction between the card 
types is reguired in the field 
description entries — each field is 
described only once — and the several 
card types are treated throughout as 
though they were identical, with one 
possible exception available: they 
can — if desired — be selected to 
different stackers by entries in 
col. 42 of the input specifications (if 
no output operation is performed on 
them) . Because the fields for two or 
mere card types are described only 
ence, core storage space is saved. 

The Resulting Indicator in cols. 
19-20 cf the main card-type identifica- 
tion line applies also to the OR 
line (s) where no Resulting Indicator is 
entered; alternatively, the same 
Resulting Indicator may be repeated in 
the CR line (s) . 

This type of OR relationship was 
already illustrated in Figure 22: 
lines 06 and 07, and lines 12 and 13. 
(A different stacker could have been 
specified in ccl. 42 for the two card 
types in an OR relationship.) 

2. Identical Fields but Different 
Processing: 

Two or more card-types differ only in 
their Record Identification Cedes 
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Different Resulting Indicators in 
cols. 19-20 are assigned to the card- 
type specification lines in an OR rela- 
tionship, to permit distinction between 
the card types in the calculation and/ 
or output-format specifications. 



Figure 17B, lines 12 and 13; Figure 
17C, lines 13 and 14; and Figure 22, 
lines 09 and 10 represent this kind of 
OR relationship if cols. 63-64 of the 
field description lines (not shown) are 
blank. 



3. Some Identical and Some Different 
Fields for Different Card Types: 



See Field-Record Relation, below. 



OR Relationships are further illustrated in 
Figure 26, below. 



Stac ker Select — Col. 4 2 

If no stacker-select entry is made in input 
or output specifications, the cards of that 
type enter the normal stacker for the par- 
ticular card read and/or punch device. If 
the device contains more than a single 
stacker, cards can be program- directed to a 
non-normal stacker, by an entry in the 
input or output specifications. Fig ur e 24 
itemizes the normal and additional stackers 
for card input/output units with multiple 
stackers, and the pertinent stacker-select 
codes. For single-stacker I/O devices, 
stacker select should be left blank (how- 
ever, any entry is simply ignored by the 
program) . 



■mik 



Note: In the case of the IBM 2520 Card 
Punch or Read-Punch, cards with punch 
errors are automatically directed to stack- 
er 2 — the ncn-normal stacker — by the 
system. 



INPUT/OUTPUT 
UNIT 


STACKER SELEC1 
CODE 


STACKER NO. 




IBM 2520 
CARD PUNCH 


blank or 1 


1 (Normal) 




or 
READ-PUNCH 








2 


2 


IBM 2560 
MULTI- 
FUNCTION 
CARD 
MACHINE 


blank 

(from hopper 1) 


Model A1 


Model A2 


1 

(Normal Selection) 


1 

(Normal Selection) 




blank, 

(from hopper 2) 


5 

(Normal Selection) 


4 

(Normal Selection) 




2 


2 


2 




3 


3 


3 




4 


4 


4 




5 


5 


4 



•Figure 24. Summary of Stacker-Select Spec- 
ifications for Multi-Stacker 
Card I/O Devices 

Rules for Stacker Selection 

Outpu t-file cards can only be stacker- 
selected in the output-format 
specifications. 

I nput - file cards can only be 
stacker-selected in the input 
specifications. This is accomplished by 
entering the number of the desired stacker 
in col. 42 of the card-type identification 
line for the pertinent card. If a card 
type is to enter the normal stacker for the 
I/O device that contains the file, column 
42 may either be left blank or coded with 
the number of the normal stacker (which is 
always 1, except for the secondary hopper 
of the MFCM) . 

The preceding Figure 23 illustrated, in all 
three of its examples, how to select a par- 
ticular card type — in this case, invalid 
cards — to stacker 2, while letting all 
other card types enter the normal stacker. 

Stacker selection of input-file cards is 
possible, based on file matching and/or 
calculation results. In this case, how- 
ever, the file must be defined as combined 
and the file name entered in the Output- 
Format specifications. (See also Rules fo r 
Stacker Selection under Output-Format 
Specifications.) 

Not e: It is also possible to perform 



stacker selection on input-file cards, 
based on file matching and/or calculation 
results, by means of the EXIT operation 
code and BAL subroutines (see Programmin g 
Tips , Appendix E) . 
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Combined-file cards may be selected in the 
input specifications — when selection can be 
based on card type alone — or in the output- 
format specifications. It is permissible 
to select some card types within the file 
in the input specifications, and others in 
the output-format specifications. The cri- 
teria to be applied are: 



1 



A card type must not have stacker- 
select instructions in both the input 
and output-format specifications. 

If any output operation (punching and/ 
or card-printing) is to be performed on 
cards of a type, any stacker selection 
to be specified for this type must be 
in the output specifications. (If 
stacker selection is specified in the 
input specifications, but output opera- 
tions are also specified, the output is 
to the next card and this next card is 
never read.) 

If stacker selection is to be based on 
the results of calculation specifica- 
tions, or on the result of matching 
between files (ME indicator) , it must 
be designated in the output 
specifications. 



4. 



While not necessary, it is 
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The points itemized above are logically 
supported thus: For a combined file, the 
program makes provision to read each card, 
and then halts it at the pre-punch station, 
to await output instructions after comple- 
tion of calculations. However, if a stack- 
er number (even if that of the normal 
stacker) is given in the input specifica- 
tions, the program uses this fact to eject 
the card immediately after reading and to 
read the next card. Processing (calcula- 
tions) for one card is then overlapped with 
reading of the next card. 



Note : When stacker 5 is designated, but 
the I/O device referred to is the 2560 MFCM 
Model A2, the card is directed to stacker 
4. 



AND Lines 



When the number of Record Identification 
Codes requires AND lines, any Stacker- 
Select entry must be in the main (first) 
line — never in an AND line. 

OR Lines 

Stacker-selection is independent for the 
main line and each OR line, just as for 
different card-type identification lines. 



o 



To amplify: 

If no Stacker- Select entry is made in 
the CR line, the card type enters the 
normal stacker, regardless of the 
stacker for the card type defined in 
the main line above the OR line. 

The card type in the OR line may have a 
stacker-select specification different 
from that in the main line; or the 
stacker-select column in the main line 
could be blank, but the OR line could 
have a stacker specification; or both 
could be blank. 
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FIELD DESCRIPTIONS 



Field descriptions are reguir 
field of an input card that i 
in the application (i.e., as 
calculations, as Control-Leve 
Matching Field, to set Field 
to provide data for output) . 
description is entered in the 
fications for a card field th 
solely to receive output data 
input card-type field that is 
the application. (Entries fo 
needed for data input waste c 
space and process time.) 
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A separate line is used for each field 
description. Field descriptions for each 
card type begin on the line immediately 
below the line describing the card type. 
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If there are several lines describing one 
card type (AND lines) or related card types 
(OB lines), field descriptions begin imme- 
diately below the last of such card-type 
identification lines. The file and card- 
type identification area (cols. 7-42) must 
be left blank in field description lines. 



Input fields are tested for setting of 
Field Indicators/ and transferred to the 
internal process area, in the sequence in 
which they are entered. This need concern 
the user only when unconventional assign- 
ment of indicators, or multiple assignment 
of the same indicators, is involved. 



If the application does not utilize any 
data from fields of a card type, no field 
description is required. This could be the 
case, for instance, when the only operation 
performed for a card type is stacker selec- 
tion based on card type. 

Packed— Cql. 43 

Leave col. 43 blank for normal (unpacked) 
input data. 

Enter the letter P in col. 43 if the 
input data is (already) in packed-decimal 
format . 

If the same input field appears more 
than once in the input specifications, with 
the same name, that input field must always 
or never be specified as in packed format 
(P in col. 43) — i.e., it cannot be desig- 
nated as packed input for one card type and 
unpacked for another, with the same field 
name. 



o 



Packing is a data-storage technique 
whereby two_diqits (or one digit and sign) 
are stored in the space normally required 
by one al phameric character — i .e . , one core 
storage byte or one card column. Packing 
removes all zones of a zoned decimal field, 
except in the low-order (rightmost) posi- 
tion, where inversion of the zone and digit 
occurs. At the same time, blanks from the 
source field are converted to zeros. For 
example, the input field (zoned decimal) 
bb123 is represented in storage as 
4040F1F2F3. After packing it looks like 
this: 001 23F. The RPG converts numeric 
input data to packed format, if the data is 
to be used in numeric compare, arithmetic, 
editing, or Zero Suppress operations (see 
D6ciMi.. l ? osJrt|o.Pgji-COl_; 1 ,,52 # below) . The P 
entered in col. 43 prevents RPG from pack- 
ing numeric data again if it is already in 
packed format at time of input. 

numeric input data may, for example, be 
in packed format in order to get more 
information into one card. (This could 
reduce the number of cards to be processed 
by up to 505?.) The data might have been 
punched into the cards as output in packed 
format in a previous operation. Punching 



output data in packed format can save 
punching time on a serial punch (e.g., MFCM 
or 1442) if it thereby reduces the number 
of the last column to be punched. 
Incidentally — where data is required to be 
in packed format because arithmetic or 
editing operations are to be performed upon 
it—input in packed format saves the pro- 
cessing time for packing, and core storage 
for the packing routine. 



When input data is already in packed 
format, the RPG program assumes that the 
low-crder position of the field contains a 
punch combination whose bit equivalent for 
the lower half-byte represents a valid 
sign. This implies that the punch combina- 
tion in the low-order position of the field 
must be represented in row A, B, C, D, E, 
or F of the EBCDIC table (appendix D, 
Figure D1) — B and D are treated as minus, 
the ethers as plus. Hence, no blanks 
(X'40 1 ) are allowed in the low- order 
(rightmost) byte of a field specified as 
packed. Since is an invalid sign, any 
arithmetic operation attempted with this 
field will result in a non-standard machine 
halt (specification error) . If the field 
is to be used in numeric compare, arith- 
metic, or editing (including Zero Suppress) 
operations, the punch combinations for the 
low-order column are further confined to 
EBCDIC-table columns 0-9; the punch combi- 
nations for all columns, except the low- 
crder column, are then confined to EECDIC- 
table columns 0-9 and rows 0-9 (i.e., they 
must consist of two valid digits) . Sppen- 
dix E discusses data formats. 



An input field specified as Packed (P in 
col. 43) is always considered by the pro- 
gram to be numeric; a specification must 
therefore be entered for such a field in 
Decimal Positions (col. 52) --see below. 

Maximum field length for a packed input 
field is 8 columns (which corresponds to 15 
digits, and sign) . 

In input specifications, Field Location 
(col. 46-47 and 50-5 1) must reflect the 
actual columns that contain the field in 
the input data card—not the number of 
digits these columns represent. Decimal 
Positions (col. 52) must reflect the number 
of digits — not the number of columns — to 
the right of the decimal point. 
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Input fields designated as packed (P in 
col.. 43) cannot be used with Contrcl-Level 
(cols. 59-60) or Matching-Fields (cols. 
61-62) entries. The equivalent effect can, 
however, be achieved by a second field- 
description entry for the same input field, 
with a different field name, leaving col. 
43 blank and treating the field this time 
as alphameric (no entry in col. 52). If 
Batching Fields (cols. 61-62) are used with 
this second entry, the user must realize 
that the sequencing operations are then 
based on the field contents as one EBCDIC 
character per column — not two digits per 
column, appendix D explains the relative 
sequence position of each of the 256 EBCDIC 
characters. Note that, if the second 
definition of the same field (with a dif- 
ferent field name) is used solely for 
Control-Level or Matching-Fields purposes, 
a diagnostic warning message ("unreferenced 
field names") is printed during generation 
of the object program; but generation pro- 
ceeds properly. 

Note; While, as discussed above, Sacked 
format is available as a compaction techni- 
que for numeric input (and/or output) data, 
column- binary (card-image) input (cr out- 
put) cannot be used with this RPG. 

Iield_Location-xCols^_JJ^JJ_and_i)8^5J 
(ColsT 44-45~and~48-'49~are not used in 
Model 20 card RPG— they may be left blank 
or coded with zeros.) 

These columns define the location cf each 
input field in the card. 

The maximum length of an input field is: 



a . 



For a standard (unpacked) numeric 
field: 15 columns. 

Fields to be used in numeric compare 
or arithmetic operations, and/cr to be 
edited or zero-suppressed in output 
specifications, must be defined as 
numeric — by an entry in Decimal Posi- 
tions (col. 52) . 



b. 



c. 



For a packed field: 
Packed, above.) 



8 columns. (See 



For an alphameric field: No limit, 
other than data input-card capacity (80 
columns) . 



Input fields may be listed in any order, 
except when Control Levels are specified 
(see cols. 59-60, below) or Field-Becord 
Relation is involved (see cols. 63-64). 

It is permissible for input-field card 
columns to overlap, if the fields are given 
different names. 

From — Cols. 46-47 

The number of the leftmost (high-order) 
card column of the input field. The entry 



must be right- justified; a leading zero may 
be omitted. 

To— Cols. 50-51 

Ihe number of the rightmost (low-order) 
card column of the input field. The entry 
must be right- justified ; a leading zero may 
be omitted. 



Note: A single-column field is defined by 
the same column number in cols. 46-47 and 
50-51. 



Decimal_Positions;-Col JL _52 

For alphameric fields, leave col. 52 blank 

An entry (0-9) in this column defines 
the associated field (as named in cols. 
53-58) as a numeric field. 2n input field 
must be defined as numeric in the input 
specifications if any one or more of the 
following statements apply: 



1. 



2. 



3. 



4. 



Ihe input field is in packed format (P 
in col. 43) — see Packed, above. 

The field will be used as a factor or 
result field in numeric compare or 
arithmetic operations in the calcula- 
tion specifications. Arithmetic opera- 
tions comprise: addition, subtraction, 
multiplication, and division— i.e. , the 
operation codes ADD, Z-AED, SUE, Z-SUE, 
MULT, DIV, MVR. (An input field cannot 
be defined as numeric — i.e., have Deci- 
mal Positions specified — in calculation 
specifications unless it was defined as 
numeric in the input specifications.) 

The field will serve as search argument 
in a look-up (LCKUE) operation for an 
argument table defined as numeric. 

Edit or zero-suppress operations are 
specified for the field in the output- 
format specifications. 



5. Output is specified to be in packed 
format (see Ou tput- Format 
Speci f ic a ti o n s) . 

For a field that is to be treated as 
numeric, enter in col. 5 2 a digit from 0-9 
to represent the number of decimal places 
in the input data field. For standard 
(unpacked) numeric input fields, the 
Decimal Positions entry is synonymous with 
the number of card columns to be considered 
to lie to the right of the decimal point. 
For packed input fields, it applies to the 
number of digit_positigns to the right of 
the hypothetical decimal point (e.g., a 3 
in ccl. 52 for a packed input field 
specifies 3 digits to the right of the 
decimal point, contained in the 2 
right-hand columns) . 






o 
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The maximum number of decimal positions 
that can be specified for a field is 9 ; but 
the number of decimal positions specified 
must not be greater than: 



o 



O 
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1. the length of the field--for standard 
(unpacked) numeric input fields; cr 



2. the digit capacity cf the field—fcr 

packed input fields. (Digit capacity = 
2n-1, where n = the length of the 
packed input field.) 

If the entire field represents an 
integer, without any decimal places, enter 
in col. 52. 

An entry (0-9) in col. 52, besides 
designating that field as numeric, also 
serves three related purposes for the field 
specified in that line: 

1. It assigns the location of the decimal 
point, so that the object prcgram can 
perform automatic decimal- point align- 
ment during numeric compare and arith- 
metic operations. 

Note • If a field must te defined as 
numeric, but will not be used in com- 
pare cr arithmetic operations, any of 
the digits 0-9 (within field-size 
limit) may be specif ied--it need not 
conform to the number cf decimals in 
the field. 

2. It directs the object program to pack 
the field (see Appendix D) — unless 
input was already in packed format (P 
in Ccl. 43) . Packing strips off all 
zones, except in the lew-order (right- 
most) position of the field, where 
packing causes inversion of the zone 
and digit. At the same time, blanks 
are converted to zercs. 

In numeric compare, arithmetic, and 
editing operations, the program treats 
an input field with a 12-overpunch or 
the absence of a zone cverpunch in the 
low-order eclumn as positive (+) ; and 
an input field with an 11- cverpunch in 
the lew-crder eclumn is treated as 
negative (-) . 






Where zones are stripped (i.e., all 
but the low-order eclumn) all punch 
combinations that appear in cne row of 
the EECDIC table (see Appendix D, 
Figure D1) take on the value that 
appears under the eclumn heading F for 
that row (e.g.: 12-9-4, 12-11-9-4, D, 
M, U, 4, etc., all become 4; ■£), 8, -, 
12-11-8-1, etc., all become 0). 

For the lew-order position, zones 
are handled by the prcgram as follows: 

a. If the column contained any of the 
punch combinations in EBCDIC-table 
eclumn E or F, the E- or F-zone 
remains and the field is treated as 
positive (or zero, if entire field 
is zero) . 



If the column contained any of the 
punch combinations in EBCDIC-table 
column D, or an EECDIC 60, D-zone 
is assigned and the field is 
treated as negative (or zero, if 
entire field is zero) . 
All other punch combinations are 
assigned C-zone and the field is 
treated as positive (or zero, if 
entire field is zero and/or blank) . 



Once the field becomes a result 
field for an arithmetic operation, it 
is signed C-zone (not F-zone) for plus 
or all zeros, or D-zone for minus. 



If the input field is to be used in 
numeric compare, arithmetic, or editing 
operations, the punch combinations in 
all card columns of the field must be 
represented in rows 0-9 of the EECDIC 
table, to yield valid digits when 
packed. 



It causes zones in any position of that 
field (including the low-order posi- 
tion) to be ignored from data compari- 
sons effected by Control-Level (cols. 
59-60) and Matching-Fields (cols. 61- 
62) specifications. 
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Note also that, if the one field name is 
used solely with Ccntrcl-Level or Matching- 
fields specif icaticns, and net referred to 
for calculation or output data, a diagnost- 
ic warning message ("unreferenced field 
names") is printed during program genera- 
tion. This does net prevent proper program 
generation. 

Note: Once a given Control Level 
(L1-L9) or a given Matching-Fields 
level (M1-M3) is specified in an input 
field-description line that contains a 
Decimal Positions entry (eel. 52), 
Ccntrcl-Level or Matching-Fields 
entries cf the same level (L1-L9, 

M1-M3) in all card... types are treated as 

numeric for Control-Level or Matching- 
Fields operations, respectively. this 
applies even if the field name is dif- 
ferent in the several specification 
lines for that Control Level or 
Matching-Fields level. (A warning mes- 
sage is printed during program genera- 
tion in the case of control fields for 
one level being defined as tcth alpha- 
meric and numeric.) 

If the field names are different, 
they may differ in f crmat--alphameric 
versus numeric; if numeric, in- position 
of decimal point — but the number of 
columns in the field must be the same. 
They are then treated as numeric fcr 
Ccntrcl-Level or Matching-Fields opera- 
tions, respectively (if cne card type 
was specified as numeric for that Ix or 
Mx level) ; but for other operations, 
each field is treated in accordance 
with its own format specifications. 

Note: The program does not perform auto- 
matic decimal alignment en numeric fields 
in Contrcl Level or Matching Fields 
operations. 

Tf there is nc need to define the input 
field as numeric (i.e., it will not be used 
in numeric compare, arithmetic, edit, or 
zero-suppress operations) --even though the 
data is numeric--the programmer has the 
option cf defining the field as alphameric 
(col. 52 left blank) or defining it as nu- 
meric (0-9 in col. 52) , depending en the 
relative significance, to his program, of 
the factors itemized immediately below. 

Defining an input field as numeric 
causes the program to pack it for input, 
and to unpack it for output (unless Packed 
Field is specified for output) . 

1. Packing and unpacking censume cbject- 
prcgram process time, and core storage 
space. 

2. Packed data occupies less cere storage 
space than unpacked data. 



3. A field that is to be packed cannot be 
longer than 15 columns before it is 
packed. 

If the same input field appears more 
than once, with the same name, in the input 
specifications it must always be the same 
size, and defined in the same format: 
always standard data format or always 
packed; always alphameric or always numer- 
ic; if numeric (or packed) , then always 
with the same number of decimal positions. 
This uniformity of size and format for one 
field name applies within and between dif- 
ferent specifications forms (input, calcu- 
lations, output) . (However, since the for- 
mat of input fields is fully defined in the 
input specifications, the number of decimal 
positions, together with field length, need 
not be repeated in the calculation specifi- 
cations if an input field is also used as a 
calculation Result Field.) 



Zield_Name-Cols i _53-5J 

Each input field delimited in Field Loca- 
tion must be given a Field Name by the pro- 
grammer. Once a name has been assigned to 
a field, the field is referenced in calcu- 
lation and output specifications by its 
name. The name is associated by the pro- 
gram with an address in core where the data 
for that field is stored; but the user need 
not cencern himself with the actual core 
storage location. 

The name must begin in column 53 with 
cne of the 29 alphabetic characters, may 
continue with alphabetic or numeric charac- 
ters, and may be one to six characters 
long. (See D e fin it i en of Terms, for 
"alphabetic" and "numeric" characters — 
neither permits embedded blanks.) Within 
these rules, any Field Name may be assigned 
to any field in the input specifications, 
with the exception of 

ALTSEQ, or a name beginning with CCNTD 
or TAE, or PAGE followed by one or two 
characters. 

Also, the name PAGE is reserved for a spe- 
cial purpose (see Consecutive.. Numbering) . 

The same field name may be used for any 
number of fields in different card types 
(and as Result Field in calculation speci- 
fications) , provided all fields with the 
same name 

1. are the same length; and 

2. have the same data format: standard or 
packed, alphameric or numeric; and 

3. if numeric (or packed) , have the same 
number of decimal' positions specified. 
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"The same core storage location is used 
for fields with identical names. Core 
storage is thus conserved by assigning the 
same name to fields in different card 
types. This has the further advantage 
that, if the same processing is to be ap- 
plied to the field for different card types, 
calculation or output specifications may be 
saved. The programmer must be careful, 
however, that data in storage frcm cne card 
type is net superseded by that from another 
type until it is no longer needed: any 
time a card with the particular field name 
is read, its data replaces that previously 
stored at the location fcr that field name. 
(The actual data substitution occurs just 
before detail-time calculations — see Figure 
6r, ,BPG_Prcg ram Logic.) 

On the other hand, by making a field 
name unique to a card type, the data fcr 
that field is retained until a card of the 
same type is read again. This permits pro- 
cessing data from a previous card with data 
from a later card. (For exception, see 
Blank After, under Program Logic Flo^r and 
under Output- Format, Specif icat ions . ) 



© 



It is also possible tc save cere storage 
space, in specialized situations, by 
assigning the same name to different fields 
within the same input card. (See Field 
Indica tors , "Points to Note.") 

Mote : While not recommended, because it 
would tend tc confuse, it is permissible 
for a file name to be the same as a field 
name. 



Defining the Same Data Field as Eoth 
Alphameric and Numeric 

The program assigns a separate core storage 
location fcr data associated with each 
field name. The same source-data field 
(input-card columns) may therefore be 
defined mere than ence and with different 
data formats, provided each definition of 
the field is on a separate field- 
description line and is assigned a dif- 
ferent field name. 
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ferent names: on cne line as numeric (0-9 
in ccl. 52) , with that field name 
referenced in calculation and/or editing 
operations, and no entry in Control Level 
or Matching Fields; on the other line as 
alphameric (col. 52 left blank) , with 
Control-Level (cols. 59-60) and/or 
Matching-Fields (cols. 61-62) entries in 
this line. 



This dual definition is also useful if a 
field is to be used in arithmetic opera- 
tions, but it is also desired to test it 
for blanks (as distinct from zeros) in the 
input specifications (see Field, Indica tors ) 
or for high-order-position zones in calcu- 
lation specifications (see TESTZ) . 



If a field is defined solely tc serve 
for Control Level or Matching Field, or 
Field Indicators, and not used in calcula- 
tion or output specifications, the warning 
message "unreferenced field names" is 
printed during generation of the object 
program. Generation, however, proceeds 
properly. Actually, the field name is not 
used at all by the program if the field is 
defined sclely for Field-Indicator, 
Control-Level or Matching-Fields operation. 
It must be given, however, to prevent a 
diagnostic error stop for missing field 
name. 



Using Input Data Fields for Constant Data 
(Heading Cards) 

The term "constant" is applied here to 
information, or an item of data, that does 
not change as different data cards are pro- 
cessed; it may be reguired to remain fixed 
for the entire job en a given day, remain 
fixed for part of the data deck, cr be per- 
manently fixed whenever a given report is 
run. 

Examples of constant data might be 
report date, report title, identification 
for different portions of a report, and 
report-column headings. 
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The input specifications offer a con- 
venient means of entering constants that 

1. exceed 24 columns--such as a long 
report title; and/or 



Input Specifications (Mandatory) 83 



2. may have to be changed each time the 
report is run — such as a date; and/or 

3. differ for successive sections of a 
report — such as separate report head- 
ings for executive, regular salary, and 
hourly-rated payroll reports, when 
there are otherwise no differences in 
the processing of the reports. 

The easiest way to enter such constants 
is to identify the card containing the con- 
stant data as a separate input-only card 
type, and assign a field name that is not 
repeated for any other field or card type 
to the columns containing the constant. 
The card type containing the constant is 
placed in the data deck wherever desired: 
if it is a date card or report-heading 
card, it would normally be placed at the 
front of the input-data deck. If there are 
separate constants cards for different sec- 
tions of the report (such as report-section 
headings) , they can be placed at the begin- 
ning of the pertinent sections of the 
input-data deck; when a new constants card 
is read, its data will replace the data 
from the previous cne--until that point, 
the data is preserved because no other 
input card has the same field name 
assigned . 
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constants cards are interspersed in 
deck (to change constants for dif- 
ecticns of a report) , they may have 
fields and Control Levels assigned, 
e that they are in the correct 
d/or to make it possible to sort or 
em into the deck iiechanically. 
alculaticn specifications can 
hat a constants card is always at 
t cf its section . 



If the constants card is defined as a 
separate file, is should he designated the 
primary file, so that it is read first, and 
the constant information is available 
before the first data card. 

If multiple input (or combined) files of 
data cards are processed, the constant 
card (s) may appear just ahead cf any file 
or file section. If no Matching Fields are 
specified for the constants card, it will 
be read ahead cf Matching-Fields cards in 
the ether files. (For specifics, see 
chapter titled Hatching of Files.) 



Consecutive Numbering (Page Numbering) — 
Heading Cards 

The cut put-format specifications provide a 
simple method for printing consecutive num- 
bers on successive pages cf output forms, 
cr printing or punching consecutive numbers 
in cards, beginning with 1 as the first 
number. 



If numbering is to begin with a number 
other than one (or if it is to begin again 
with 1 at points in the data deck that can- 
not be specified with conditioning indica- 
tors) , provision for loading initial page 
numbers must be made in the i nput specifi- 
cations. It is accomplished as follows: 

1. Input Specifications 

a. Define a separate input-only card 
type — just as for a constants card 

(see section immediately above) . 
(Alternatively, include PAGE data 
in a constants heading card.) 

b. Assign the field name PAGE to a 
four-column card field. 

c. Define the field as numeric without 
decimal places (0 in col. 52) . 

2. PAGE (i.e., Consecutive-Number) Card 

a. Punch a value one less than the 
desired starting number into the 
pertinent four-column field of a 
card, together with the appropriate 
card-type identification punches. 

(A positive or negative value is 
permitted, and will be incremented 
arithmetically .) 

b. Place the card ahead of the data 
deck. 

For multiple input (or combined) 
files, or to restart numbering at 
numbers higher than 1 at several 
points of the data deck, place 
consecutive-number cards as 
explained for constants (heading) 
cards. 



o 



o 



PAGE car 
in the data 
bering is t 
bering is t 
various poi 
cannot be c 
by conditio 
output spec 
this is reg 
data deck t 
by the prog 
as a contro 
tain card t 
tents of th 
field shoul 
punched wit 
starting nu 



ds may also be 

deck, even tho 
c begin with 1, 
o restart with 
nts in the repo 
enveniently ide 
ning indicators 
ifications (i.e 
uired at points 
hat cannot be r 
ram by such occ 
1-level break o 
ype, etc .) . Th 
e consecutive-n 
d then be left 
h zeros, so tha 
mber is 1 . 



inserted 
ugh num- 

if num- 
1 at 
rt that 
ntif ied 

in the 
., if 

in the 
ecognized 
urrences 
r a cer- 
e con- 
umber 
blank or 
t the 



Figure 25 shows field description 
entries discussed so far (and a few inci- 
dental pointers) . The example is rather 
artificial so that each entry chosen can 
illustrate at least one of the foregoing 
points. 
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Figure 25. Field Descriptions — Part I 



Explanation of Figure 25 

Incidentals: 

Cols. 3-5 (Line Nu mber) . To i 

optional treatment of col. 5, 
entered instead of leaving it 
last line entered (025) illust 
handle an insertion: the fiel 
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Lines__01C an d 3 include a specification 
to select the Date and PAGF heading cards 
to stacker 2; other cards enter the normal 
stacker. 

Lin e 130 exemplifies the least number of 
Record Identification Codes specifications 
to make all four card types mutually exclu- 
sive: "Net Character 1" distinguishes the 



fourth card type from the third; a specifi- 
cation for absence of (-) and (S) in col. 
80 of the fourth card is not needed since 
the program always tests first for cards of 
the first and second type, because they 
have alphabetic Seguence codes (see Nature 
of the _Card-Type_ Segue nce_ Check) . 

Field Descriptions 

Lines_010 A _C2 0j_and_02 5 illustrate how to 
enter constants (e.g., date and report 
heading) via a card defined as a separate 
card type. Wherever a card of that type 
appears in the data deck — at the front or 
interspersed--new date and report-heading 
data from that card supersede the previous 
contents of the core storage areas for 
3DATE and RPTNAM. 

Line 020 also illustrates that alphabet- 
ic characters, reguired in the first column 
of Field Name, include three special cha- 
racters (5) is one of these three) . 

Date contains no decimal places; but it 
is defined as numeric (0 in col. 52 = nu- 
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meric, with decimal places) , so that the 
printout can be edited. 
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Lin es 03C and 04C show hew tc provide for 
loading cf initial "page" number, if auto- 
matic numbering is to be specified (in the 
output-f crmat specifications) tut is net to 
start with 1 (or is to restart with 1 at 
points in the data deck that cannot be 
identified by conditioning indicators) . 
Wherever a card of the type defined here 
(12-punch in ccl. 80) appears in the data- 
card deck, the number in eels. 1-4 (cr in 
whatever columns are specified in Field 
location) becomes the (new) starting num- 
ber. (The number is incremented before it 
is printed or punched. Therefore, the 
number entered should be cne less than the 
desired starting number.) Unless and until 
a PAGE card is read, censecutive-numhering 
(if called for in the output-f crmat speci- 
fications) begins with 1. 

The Field Name PAGE must be used, fcur 
columns must be assigned to the field, and 
the field must be defined as numeric 
without decimal places (0 in ccl. 52) . 

Line 040 also shows that leading zeros 
for "Frcrn" and "To" column numbers (note 
01, 04 in cols. 46-47 and 50-51) may be 
recorded. Other specification lines 
illustrate that they need net be recorded. 
All field-description lines show that 
source-data columns are entered 
right- justified. 

Line 060 points out that the size of 
alphameric input fields (blank in ccl. 52) 
is not limited. 20 columns were assigned. 
It also illustrates that fields need net be 
defined in the order in which they appear 
in the source-data cards: eels. 21-40 are 
recorded ahead of cols. 2-6. 

Lines C7C and 08 show a field (input cols. 
2-6) assigned two different names. EMPL#1 
is numeric (with zerc decimal places) so 
that it can be used in numeric compare, 
arithmetic, and/or editing operations--for 
example, to suppress leading zeros in 
printout. EMPL#2 is alphameric (ccl. 52 is 
blank), sc that Control Level (L 1 in eels. 



59-60) will compare on the full characters 
in the field, including zene overpunches. 
If the L1 were placed next to EMPL#1, only 
the numeric parts of characters in cols. 2- 
6 would be considered in the Control-Level 
comparisons. 

These field names also illustrate that 
numeric entries are allowed in Field Name, 
except in ccl. 53, and that # is not a spe- 
cial character (it is cne of the three sym- 
bols defined as alphabetic) . 

Line 090 illustrates the maximum size of a 
standard (unpacked) numeric field (15 
columns) , and the maximum number of decimal 
places (9) allowed. The entry in col. 52 
defines the field as numeric and implies, 
for numeric compare and arithmetic opera- 
tions, that the data in cols. 41-46 is to 
the left of the decimal pcint, and that in 
cols. 47-55 to the right. 

Line 100 emphasizes that the number of dec- 
imal places specified must not be greater 
than the digit capacity of the field: the 
field is unpacked (no P in ccl. 43) , three 
columns long (cols. 62-64) ; therefore, it 
cannot have more than three decimal places 
specified. 

Line 1 1 shows the maximum size (eight 

columns) for a packed (P in col. 43) input 
field. The entry 9 in col. 52 is valid — it 
does net exceed the digit capacity of the 
field — because an 8-column packed field 
contains 15 digit positions (2n-1 = 2 x 8-1 
= 15) . Nine decimal places implies that 
the contents of cols. 65-67 are to the left 
of the hypothetical decimal point, and 
cols. 68-72 to its right (a half-byte in 
col. 72 represents the sign) . The field is 
defined by its actual card columns (eels.. 
65-72) — not by the number of digits it con- 
tains (15) . 

When Packed (P in ccl. 43) is specified 
for a field name, it cannot be used for 
Control-Level or Matching-Fields 
operations. 
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Lin e 140 shows the assignment of the same 
field name to different source fields 
(cols. 2-6 versus cols. 75-79) in two dif- 
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Line, 1 50 uses a different name in the 
second card type for the same source field 
shown in line 120 for the first card type. 
Data in the storage locations for DIFNAM 
and CNTEPA is thus conserved until ancther 
card of the same type is read. 

As shewn in lines 080 and 1U0, and 120 
and 150, it is immaterial for the Control- 
Level operation whether the field name is 
the same cr different for the same Control 
Level (eels. 59-60). This is also true for 
Hatching Fields (eels. 61-62). However, a 
Control-Level field or a Matching Field of 
a given level (here, L2) must always be the 
same length in all card types--in this 
example, it is 8 eclumns leng in bcth card 
types (line 120 and line 15C). 

Lines 160 and 100 have a Matching-Fields 
specification (M1 in cols. 61-62). Dif- 
ferent field names are assigned to eguiva- 
lent source fields in the two card types. 
This permits difference in format: Line 
100 specifies the field as numeric, with 3 
decimal places; line 160 defines the field 
as alphameric. 

Line 160 is presented tc emphasize that, 
notwithstanding the different field names 
in the two card types, certain restrictions 
exist when Ccntrcl Level or Matching Fields 
is specified: 

1. The field length must te the same. It 
is three columns in bcth card types. 

2. Once a Control Level or Matching-Fields 
level has been defined as numeric in 
one specification, all Ccntrcl-Level or 
Matching-Fields operations, respective- 
ly, for that level ignore zone punches. 

Therefore, although line 160 is blank in 
ccl. 52 (i.e., the field is defined as 
alphameric), the sequence check (or match- 
ing of cards, if the different card types 
were in different files) is performed on 
the numeric portion of the field cnly-- 
since EEC3MX in line 100 is defined as nu- 
meric (ccl. 52 is ceded).' For ether uses of 
these fields (not Control-Level or 
Matching-Fields operations) , the format 
conforms tc the differing specifications in 



col. 52 — DECNO data is treated as alphamer- 
ic; DEC3MX as numeric, with 3 decimal 
places. 

Line 170 illustrates that the same source- 
data field in two card types (MX15AL in 
line 170 and MAX15 in line 090) may be spec- 
ified with a different number of decimal 
places (8 and 9, respectively) , provided 
the fields are assigned different names. 

Note: As discussed with columns 59-60, 
Control-Level fields must be recorded in 
ascending seguence of significance within 
card type: L1 must appear in an earlier 
specification line than L2, etc. See lines 
080 and 120, and 140 and 150. Note parti- 
cularly lines 140 and 150 where the fields 
had to be specified in a seguence different 
from that in which they appear in the 
source-data cards — DIFNAM is in data-card 
columns ahead of EMPL#2, but had to be 
defined on a lower line because L2 is high- 
er than L1. 



Control Level — Cols. 59- 60 

Any of the indicators I1-L9 may be entered 
in these columns. This establishes the 
field defined in that specification line as 
a control field (as the term is known in 
Unit Record parlance — see also Definition 
of Terms) , and designates that L-indicator 
'as a resulting indicator. Nine distinct 
control and total levels (besides LE for 
final total) are thus available — L9 is the 
highest level, L1 the lowest. 

Whenever a card with aji— L- 
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Normally, L^indicators are used to: 

1. Condition certain calculations tc be 
performed only at the end of a control 
group 
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2. Condition certain punching tc be per- 
formed only for group tctals of parti- 
cular levels (summary punching) 



3. Condition certain printing tc take 
place only at the end cf ccntrol groups 
of particular levels (total printing) 

4. Conditioning certain calculations and/ 
or output operations tc cccur only on 
the first card of a ccntrol group of a 
particular level (e.g., grcup 
indication) . 

See the Calculation Specifications and 
the Output-Format Specifications for appli- 
cation of the L-indicators as conditioning 
indicators. 



Note: Nc automatic decimal alignment is 
performed in" Ccntrci-Level operations en 
numeric fields. 



Split Ccntrol Fields 



Control 
trol Lev 
areas of 
then com 
sets of 
assigned 
field — i 
appear i 
the port 
field re 
Control- 
of the p 
line. 



fields 
el may 
the s 
tines 
column 
, into 
n the 
n the 
ion (s 
corded 
level 
crticn 



may be 

be assi 
ame inpu 
the data 
s with t 

one ccn 
order in 
input sp 
ubfield) 

first i 
data sto 

in the 



split; i.e., one Ccn- 
gned tc two or mere 
t card. The program 
, frcm the several 
he same L-indicator 
tinucus control 

which the portions 
ecif ications. Thus, 

of a split control 
s stored in the 
rage area to the left 
next specification 



Special rules for split Ccntrcl-Level 
fields: 

1. a. The length of the portions of split 
ccntrol fields may vary for dif- 
ferent card types (if the field 
names differ) , and 

b.* A field may be split for seme card 
types and not for ethers (if the 
field names differ), but: 

the aggregate number of columns for 
one Ccntrcl Level must be unifcrm 
for all card types. 

2.* The aggregate number cf columns cf all 
portions (subfields) cf cne split nu- 
meric ccntrol field may exceed 15 
columns- -provided: 

a. No individual portion (subfield) 
exceeds 15 columns, and 

b. The sum of all control fields dees 
not exceed 144 columns (with each L 
level specified counted once) 



If one portion of a split Control-Level 
field is defined as numeric (i.e., col. 
52 has an entry) , the entire field is 
treated as numeric (zones stripped) for 
Control-Level operations in all card 
types. 

No other Control-Level entry may inter- 
vene in the input specifications 
between the several specification lines 
for portions of one control level. 
(For compatibility with other RPGs, no 
other field-description lines should 
intervene, either.) 



*Note: Figure 26B illustrates that several 
numeric data fields — each not longer than 
15 columns--may be portions of a single 
Control-Level field longer than 15 columns. 
It also shows that the same Control Level 
may be assigned in another card type to a 
single non-split field longer than 15 
columns, provided it is defined there as 
alphameric and assigned a different name. 

General Rules for Control Fields 

1. If several Control Levels are specified 

(in cols. 59-6C) for one card type they 
must be recorded in the input specifi- 
cations in ascending seguence of level: 
the specification line with L1 must 
precede the line with L2, etc. This 
may require specifying input fields in 
a seguence that differs from the order 
in which the data appears in the input- 
data cards. 

However, the specification lines for 
different Ccntrcl Levels need not be 
consecutive--lines for other fields, 
without Control-Level specifications, 
may intervene. 

2. The number of columns (i.e., the field 
size) that constitute a Control-Level 
field must be uniform in all card types 
where that Control Level is specified. 

3. The card columns for ccntrcl fields cf 
different Control Levels in the same 
card type may overlap; but the 
aggregate number of columns for all 
Ccntrol Levels must net exceed 144 
(with each L level specified counted 
once) . 

4. There is no requirement that, if a cer- 
tain Ccntrol Level higher than L1 is 
assigned, all lewer-numbered levels 
must also be assigned. 



Note: Additional rules apply tc Control 
Levels used in conjunction with Field- 
Eecord Relation (cols. 63-64) , and are dis- 
cussed in that section. 
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To refresh the reader's memory, some 
points are repeated here in condensed form: 
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1. Control operation for a given Control 
Level is on a numeric basis (all zones 
stripped) for all card types if any 
control field or Split-Control portion 
for that Control Level is defined as 
numeric (i.e., if col. 52 has an 
entry) — even though the field names may 
differ. (Eut consider defining the 
same field twice for the same card 
type, with different names — as 
discussed previously.) 



2. Field names are ignored fcy Control- 
Level operations — contents of specified 
data-card columns are compared with 
data stored from a previous card at the 
location assigned to that Control 
Level. Therefore, field names for the 
same Control Level in different card 
types may be the same or different. 

3. A Control-Level specification cannot be 
assigned to an input field defined as 
Packed (P in col. 43). (But consider 
defining the same field twice for the 
same card type, with different names — 
as discussed previously.) 

4. A Control-Level field defined as numer- 
ic is limited to a maximum of 15 
columns. (See special case under Split 
£ojQil2 i_£i§ l^SjL above.) 

5. The same or different Control Levels 
may be assigned to different card 
types; or none may be assigned to some 
card types. 

Comparing on control fields occurs 
only for the card types and fields with 
Control Level specified. When a card 
for which a given Control Level is not 
specified is processed, the data for 
that Control Level in storage from a 
previous card remains undisturbed. 

6. Control-Level compare operations are 
performed for cards in the order in 
which they are processed, regardless of 
the file from which they come. 
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Matching Fields-^Cols. 61-62 

Any of the codes M1 , M2 , or K3 may be 
entered in these columns, with these 
effects: 

1. If the program provides for processing 
of only a single input (or combined) 
file, entry of M1, M2, or M3 in cols. 
61-62 causes sequence checking of the 
contents of the f ield (s) defined in the 
particular specification line(s). 

However, programming a sequence 
check by entries in the calculation 
specifications usually consumes less 
core storage space than utilizing the 
Matching-Fields entry for that purpose 
alone. Sequence checking by calcula- 
tion specifications also permits detec- 
tion of duplicates, as well as saving 
processing time. 

2. If the program provides for the proces- 
sing of two or three input (or combi- 
ned) files, entry of K1, M2, or M3 
causes 

a. sequence checking of the contents 
of the fields defined in specifica- 
tion lines in which M1, M2, or M3 
is entered , and 

b. matching of the contents of these 
fields 

(i) between successive cards in the 
same file and 

(ii) between cards in the primary 

file and cards in the secondary 
and (if applicable) the ter- 
tiary file. 

This determines the order in 
which cards from the two or three 
input (or combined) files are 
processed. 

When a card from the primary 
file matches a card from the secon- 
dary or tertiary file on all Match- 
ing Fields specified, the MR indi- 
cator is on during the processing 
of these matched cards. The MR 
indicator is on for detail-time 
processing of a matching card 
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through the total time and overflow 
time that follows the card (see RPG 
Program Logic, Figure 6) . The sta- 
tus of the ME indicator may be used 
to condition the execution of cal- 
culation and/or output specifica- 
tions. (See the Calculation Speci- 
fications and the Output-Fcrmat 
Specifications for applications of 
the MR indicator as conditioning 
indicator.) 



One, two, or three fields may be matched 
and/or sequence checked in one operation. 
If more than one field is specified for 
matching and/or sequence checking, the M- 
levels must be assigned to correspond to 
the significance levels of the fields. For 
example: if three fields are involved, M3 
is assigned to the most significant 
(highest-order) and M1 to the least signi- 
ficant (lowest-order) field. To put it 
another way: the contents of the three 
fields may be regarded as one continuous 
value, with the M3 value at the left and 
the M1 value at the right. 

If only one Matching Field is used, it 
■ust be assigned M1 ; if two are used, M1 
and M2 must be assigned to them. A Match- 
ing Field cannot be split within the same 
card; i.e., one Matching Field (M1, M2, or 
M3) must represent a single entry of conti- 
guous card columns with the field read from 
left to right as high-order to low-order. 

One matching field (M1 , M2 , or M3) must 
take up a contiguous number of card columns 
and cannot be split up within the card. Dp 
to three matching fields can be specified 
per card, and, in addition, the card 
columns of one field may overlap those of 
another. See Figure 25A. 
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To refresh the reader's memory, some 
points are repeated here in condensed form 
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Hith multiple input (or combined) 
files, at least one card type in each 
file must have an entry in Matching 
Fields, and sequence checking is manda- 
tory for card types with Matching 
Fields specifications. A seguence 
error stops the program. (It can be 
restarted. ) 

When Matching Fields are used, card 
types with Matching Fields specified 
must be in the same sequence in all 
files — ascending or descending. (The 
direction of sequence is designated in 
the File Description Specifications.) 
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Figure 25A. Specification of Matching 
Fields 



Card types for which Matching Fields 
are specified must all have the same 
number of Matching Fields specified. 

The number of columns (i.e., the field 
size) that constitutes a Matching lield 
of a given level (M1, M2, or M3) must 
be uniform for all card types with 
Matching Fields specified. 

The card columns for Matching fields of 
different levels (M1, M2, M3) in the 
same card type may overlap; but the 
aggregate number of columns for all 
Matching Fields in one card type must 
not exceed 144. 

An input field defined as Packed (P in 
col. 43) cannot be assigned as Matching 
Field. (But consider defining the same 
field twice for the same card type, 
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with different names — as discussed 
previously.) 



8. Matching-Fields operation for a given 
level (M1, M2 , or M3) is on a numeric 
basis (all zones stripped) for all card 
types if any Matching Field of that 
level is defined as numeric (i.e., if 
col. 52 has an entry) — even though the 
field names may differ. (But consider 
defining the same field twice for the 
same card type, with different names — 
as discussed previously.) 

9. k Matching Field d-efined as numeric is 
limited to a maximum of 15 columns. 



10. Field names are ignored by Katching- 

Field operations — contents of specified 
data-card columns are compared with 
data stored from other cards at loca- 
tions assigned by the program to 
Matching-Fields data. Therefore, field 
names for the same Matching -li elds 
level in different card types may be 
the same or different. 



11. The order in which input (or combined) 
files are entered in the input specifi- 
cations determines their order of pre- 
cedence when matching two or three 
files. 



o 
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12. Data from cards with higher precedence 
can be available when processing match- 
ing cards cf lower precedence, but not 
vice versa. 

13. The order in which specification lines 
for a card type with Matching Fields 
are entered need not conform to the 
level of the Matching-Fields 
specifications — e.g., the line with M3 
in cols. 61-62 could fall between the 
lines with M1 and M2. 

Also, specification lines without 
Matching-Fields entry in cols. 61-62 
may intervene between lines with 
Matching-Fields entry. 

14. Matching-Fields (M1, M2, M3) operations 
are independent cf Ccntrcl-Level 
(L1-L9) operations. (However, they are 

related to the extent that ccntrcl- 
field comparisons are cnly performed 
when pertinent cards are prccessed-'-and 
that, in turn, is based on the 
Matching-Fields operation.) 



o 



Note: Additional rules apply to Matching 
Fields used in conjunction with Field- 
Record Relation (cols. 63-64), and are dis- 
cussed in that — the next — section. 

Field-Record Relation--Ccls. 63- 64 

These columns are used in conjunction with 
records in an OR relationship (see Records 
in an 0R : Relationship) . Entries in cols. 
63-64 permit associating fields only with a 
particular one of several card types in an 
OR relationship. The distinction is made 
by entering in eels. 63-64 the cede cf one 
of the Resulting Indicators assigned in 
cols. 19-20 to the several card types in an 
OR relationship. 
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Different card-type Resulting Indicators 
are assigned in cols. 19-20 to seme or all 
of the several card types in the OR rela- 
tionship. Ey entry of the card-type 
Resulting Indicator for the appropriate 
card type in Field-Record Relaticn (eels. 



63-64) , a field description is associated 
only with a particular one cf the card 
types in an OR relationship. Field 
descriptions without an entry in Field- 
Record Relaticn apply to all the card types 
in the OR relationship. This saves enter- 
ing specification lines and, if the propor- 
tion of identical fields preponderates, it 
also saves core storage space. 
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Special Rules for Use of Field-Record Rela- 
tion (cols. 63-64) 

For each set of card types in an OR 
relationship: 

1 . Core storage space is conserved by 

grouping together (i.e., in consecutive 
lines) all field descriptions with the 
same indicator in Field-Record Relation 
(cols. 63- 64) , and by grouping together 
all field descriptions without Field- 
Record Relation indicator. 
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In view of (1) and (2) above, all the 
field-description lines without Field- 
Record Relaticn entries should appear 
before those with Field-Record 
Relaticn. 

The program treats split control fields 
(see Control,, Level, cols. 59-60) of one 
Control Level as a single entity, for 
purposes of Control-Level operations. 
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Therefore, it is net possible (for 
Control-Level operations) to assign 
different field portions of a single 
Control Level to different Field-Record 
Gelation indicators, or to assign a 
portion to a Field-Record Relation 
indicator and have another portion in a 
field-description line without Field- 
Record Relation indicator. 

The same result is easily achieved 
by repeating all portions of the split 
control field--even that which might 
apply regardless of OR-relation card 
type — for all pertinent Field-Eecord 
Relation field-description lines. 
(Figure 26B, lines 06 and 17, illus- 
trates this--see explanation in point 
3, under Explanation of Entries in 
F igu re 2 6B.) 

5. When the same Control Level or 
Matching-Field level is assigned both 
to field description without Field- 
Eecord Relation indicator, and to one 
or more field descriptions with Field- 
Record Relation indicator (s) , only the 
specification with the pertinent Field- 
Eecord Relation indicator is used--for 
Control-Level and/or Matching-Fields 
operations — when that indicator is 
turned on. If none of the Field-Record 
Relation indicators for that Control 
Level or Matching-Fields level is en, 
the specification without Field-Record 
Relation indicator assigned is used for 
that level. 

Ccntrcl-Level and Matching-Fields 
specifications to which no Field-Record 
Relations indicator is assigned for any 
of the card types in the OR relation- 
ship are used with all card types in 
the CR relationship. 

6. The number of Matching Fields specified 
(one, two, or three) .must be uniform 
for all card types for which Matching 
Fields are specified. 

It is not allowed, therefore, to 
match (or seguence check by entry in 
eels. 61-62) on a different number of 
fields for different card types in an 
OR relationship. It is, however, 
permissible to match (or seguence-check 
by entry in eels. 61-62) on the 



appropriate number of fields for some 
card types — and not at all for others 
in the OR relationship. The latter 
implies that all field-description 
lines with Matching Fields specified 
contain also a Field-Record Relation 
indicator entry; otherwise — as 
explained in 5, above — a 
Matching-Fields line without 
Field-Eecord Relation indicator is 
applied whenever no such indicator is 
on for that level. (See also Matching 
Fields, cols. 61-62, and Matching of 
Files. ) 

7. The number of Control Levels (L1-L9) 
specified for different card types in 
the OE relationship may differ. It is 
also permitted to have no Control Level 
for certain card types, and any number 
of Control Levels for other card types. 

8. While--for Control-Level and Matching- 
Fields operations — entries with Field- 
Eecord Eelation indicator assigned take 
precedence, when the relevant indicator 
is on, over those without an indicator 
entry in cols. 63-64, this is not true 
for other processing cf the data in 
these fields: 

The data from the card field defined 
in every field-description line which 
has no Field-Record Eelation entry is 
read from all card types in the OE 
relationship. This data is read into 
the core storage area assigned by the 
program to that field name, which is 
not the same area where Control-Level 
or Matching-Fields information — which 
ignores field name — is stored. 

If it is desired to read into the 
field-name storage area for a field 
only from certain card types in the OE 
relationship — or to read the same field 
from different card columns for the 
different card types--then each field- 
description line for that field must 
have an appropriate indicator entered 
in Field-Eecord Eelation. 

Figures 26A, B, and C illustrate input- 
specifications entries for Control Level, 
Matching Fields, Field-Eecord Relation, and 
other OE relationships. (See also Figure 
25 and earlier figures.) 
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Figure 26A. Field Descripticns--Part II 
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Explanation of Entries in Figure 26A — 
Control levels. File Matching, and OF Rela- 
tionship Types 1 and 2 (see Records in an 
OF Relationship) 

Iines_ 01 ± 02,, and 03 show three records in 
an OF relationship of Type 1 (see above) : 
Resulting Indicator 80 applies tc all three 
types (it could have been repeated in each 
line) . No distinction can be made (on the 
basis of card type) in the calculation and/ 
or output-format specifications between the 
three card types, because the same indica- 
tor is assigned to all three. 

Lines 04 and 05 show two mere records in an 
CR relationship to the first three; tut 
they are cf Type-2 OR relationship: sepa- 
rate Resulting Indicators are assigned to 
them, to permit calculation- and output- 
specifications distinction between the 
fourth card type, the fifth, and the first 
three (as a group). 

Lines 02-04 alsc illustrate that card 
types in any kind of OR relationship — even 



when no distinguishing Resulting Indicator 
is assigned — may be directed to non-normal 
stackers by entries in the input 
specifications. 

lines 01-05 illustrate only OR relation- 
ships of Types 1 and 2: the data fields 
(lines 06-12) are defined only once, and 
none are liirited tc a particular one, or 
group, of the five card types in the OR 
relationship — Field-Record Relation (cols. 
63-64) is therefore blank. 

Lin es 13 and 14 are another example of AND 
relationships between four criteria for the 
definition of one card type. 

Lin es 06 and 15 specify that Control Level 
L1 will be a numeric control only (all 
zones stripped), because col. 52 has an 
entry. 

Lines 06, 10, and_J2 x and lines 15 and 1 9 
show Ccntrol-Level indicators to be in 
ascending order of significance — as they 
must fce, even if the data appears in the 
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Figure 26E. Field Descriptions - Part III 



cards in a different order (note lines C6 
and 10) . 

Line 1 has Control-Level indicator 13 
assigned, although L2 is nowhere assigned 
in this file. This is permissible. When 
13 (or any higher indicator) turns on, L2 
and L1 also turn on, even though L2 is not 
assigned . 

SECNFIIE dees not have 13 assigned tc any 
field, although it is assigned in the ether 
file. Nc 13 Ccntrcl-Level comparison is, 
therefore, made when a card is read frcm 
the file SFCNFILE. The 13 information from 
the last preceding card frcm the file 
TYPE10R2 is preserved, and compared against 
the next card processed frcm that file. 

If .14 turns on when reading a card from 
SECNFIIE, 13, 12, and L1 alsc turn en, even 
though L3 and L2 are not assigned in this 
file. 

lines C8 a nd 10 illustrate that the 
Hatching-Fields specifications (M1, M2, M3 



in cols. 61-62) need net appear in ascend- 
ing order. Regardless of the crder in 
which they are recorded, M3 identifies the 
high-order (most-significant) field, and M1 
the lew-order field. Thus, DIVISN contains 
the mest-signif icant (leftmost) data for 
the card match and seguence check, DEPT the 
next part, and EMPINC represents the right- 
hand portion. 



The entire example alsc shows: 



a. That the number cf Matching Fields must 
be the same for all card types for 
which matching fields are specified 
(three fields in all cards of this 
example) ; 

b. That Matching Fields need not be the 
same as Control-Level fields; 

c. That other field-description lines may 
be placed between Contrcl-Level and 
Matching-Fields lines. 
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Lines_C8^ C9, and 18 show how to specify 

Field Lccaticn (in eels. 46-47 and 50-51) 
for single-column fields. 

lines 08 and 12, and 18 and 19 show that 
fields for Control Level and Matching 
Fields may overlap. Lines C 6 an d 10 show 
that fields for different Ccntrol Levels 
and for different Matching-Fields levels 
may overlap. 

File relationship: File TYPE10R2 is the 
primary file, because it is specified ahead 
of SECNFILE. When cards frcm the twe files 
match on the data in the three fields spec- 
ified as Matching Fields, matched primary 
cards are processed ahead cf matched 
secondaries. 



Explanation of Entries in Figure 26E — 
Split Control Fields, Selective Sequence 
Check, and OR Relationship Type 3 

Lin es 01-04 provide for identifying each of 
the four different card types in an OR 
relationship, and assigning a different 
Resulting Indicator to each. Indicator 94 
is assigned to cards that do net satisfy 
the criteria for indicators 91-93 (i.e., 
not 1, 2, or 3 in col. 80) ; these cards are 
selected to stacker 2. No Record Identifi- 
cation Codes are needed in line 04, because 
lines in an OR relationship are tested in 
sequence; therefore, card-type Resulting 
Indicator 94 turns on only if the card does 
not meet the criterion in line 01, 02, or 
03. 



Therefore, when processing a card from 
SECNFILE, data from the last preceding card 
frcm the file labeled TYPE10R2 can be uti- 
lized. For example, gross pay cculd be 
calculated by multiplying HRSWRK in each 
SECNFILE card by PAYRAT frcm the last pre- 
ceding card from file TYPE10R2. The ME 
indicator is en only for matched cards. 
Conditioning the calculation specification 
to be performed, at detail time, only if 
the indicators MR and 89 are both on, gross 
pay would be calculated enly on cards from 
SECNFILE and only if the last card from the 
file TYPE10R2 matched the SECNFILE card on 
DIVISN, EEPT, and FMPLNO. Gross pay cculd 
not be calculated during the processing of 
a card from the file TYPE10R2, because all 
matching primary cards have completed pro- 
cessing lefore data (in this case, HRSWRK) 
beccmes available frcm a matched secondary 
card. 

To illustrate the point that data for 
fields with different Field Names is stored 
at different locations, regardless of 
source columns, PAYRAT and HRSWRK were 
assigned the same card columns in different 
card types. 



Figure 26C itemizes the card columns frcm 
which Control-Level data will be taken for 
each of the four card types in the OR rela- 
tionship. The following points are note- 
worthy in Figures 26B and C with regard to 
Control Level: 

1. When neither indicator 91 nor 92 is on, 
L1 Control Level is based on the L1 
entries with no Field-Record Relation 
specified (lines 05 and 06) . When 
indicator 91 or 92 is on, L1 Control- 
Level data is based on the entries in 
lines 11-13 or 16-17, respectively — 
lines 05 and 06 are then ignored for 
Ccntrol-Level data. 

Similarly, 12 Ccntrol Level is based 
en the entries in line 19 (data-card 
cols. 61-63) when indicator 92 is on 
(i.e., the second type cf card was 
read) ; otherwise, it is based on the 
entries in line 08 (cols. 11-13). 
Likewise, L3 Control Level is based on 
line 14 (data-card columns 51-70) when 
indicator 91 is en (first type of 
card) ; otherwise it is based on lines 
09 and 10 (cols. 51-60 and 31-40) . 



o 



Card-Type | Card Columns Read for Control-Level Operations 

Resulting | — i r 

Indie. CN | L4 

91 I 21-25 

4 




Figure 26C. Card Columns frcm which Ccntrol Fields will be Taken when 
One of the Card Types Defined in Figure 26B is Read 
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The L1 Control Level is split into 
three fields for cards with indicator 
91, and into two fields for the ether 
card types. Note that, in all three 
cases, the total length for L1 is 
unif crm (ten columns) : the aggregate 
length of fields for a split Centre! 
Level must be uniform for all card 
types. 
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n lines 06 and 17 the field entries 
the lew- order portion cf the split 
cntrol Level are identical (FLDA2, 
ce cols. 46-50) . nonetheless, the 
d description had to be repeated 
Field-Record Relation indicator 92, 
use the other portion cf L1 differs 
een card type 92 and ethers (source 
. 6-10 versus 1-5, and Field Name 
6 versus FLDA1) : part of a split 
rcl field cannot be conditioned by 
eld-Record Relation indicator 
ss all parts are sc conditioned, 
if this means repetition of an 
tical entry. 
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n line 14, the sane L3 Ccntrcl 
1 is not split when card-type 
lting Indicator 9 1 is en. To be 
crm for all card types, it must be 
clumns lcng--which exceeds the 15- 
mn limit for a numeric field. Note 

FLDC in line 14 is defined as 
americ (col. 52 is blank) ; it may 
efore legitimately exceed 15 
mns in length. 



It is permissible tc designate dif- 
ferently named fields for the same Con- 
trol Level in different formats (i.e., 
with different Decimal Positions speci- 
fication) . For processing of the data 
in the fields, format accords with the 
specification in col. 52; for Control- 



Level operations, compare is purely 
numeric (zones stripped) if one cf the 
fields or split portions for that Con- 
trol Level is defined as numeric. L3 
is, therefore, a numeric control field. 

5. Control-Level entries must be in 
ascending order of significance (i.e., 
L1 appears in an earlier line than L2, 
etc.) within Field-Record Relation 
group, and within the group without 
Field-Record Relation specifications. 

6. The Control- Level entries without 
Field-Record Relation specifications 
must appear ahead of those conditioned 
by Field-Record Relation. 

7. Lines without Control-Level specifica- 
tion may appear between those with dif- 
ferent Control-Level specifications, 
but (to be compatible with other RPGs) 
not between entries for the same split 
Control Level. 

I4llgs-Q5zi0x-Ilzl5 x _16 r j,9^_an d 2 illus- 
trate that field-description lines should 
be grouped by Field-Record Relation indica- 
tor, to minimize core storage reguirements. 



Lin es n 11 and 13,, and 1 
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6 1-62). The contents 
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Note that, for card types for which 
Matching Fields are specified, the same 
number of fields must be specified for 
matching, and the field size for each M- 
level must be the same in all such cards. 

Data -field specificati ons are not affected 
by Field-Record Relation in the same manner 
as Contrcl Level or Matching Fields: 

As pointed out above, whenever a 
Control-Level or Matching-Fields specifica- 
tion appears in the same line as a Field- 
Record Relation indicator, only the 
Control-Level or Matching-Fields specifica- 
tion in that line applies for that level — 
even if the same Control-Level or Matching- 
Fields code is also specified in a line 
without Field-Record Relation. 

However, the data for the field speci- 
fied in a field-description line without 
Field-Record Relation entry is read into 
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the core storaqe area assigned to that 
field, regardless cf which card-type 
Resulting Indicator is on (for the group in 
an OR relationship) . On the other hand, 
data for fields ir lines with Field-Record 
Relation indicator are read into the 
storage area for the field cnly when that 
particular indicator is en. 

Therefore, the data for fields in lines 
11-15 is read only from cards with Result- 
ing Indicator 91; that for lines 16-19 only 
when indicator 92 is on; and that for line 
20 cnly frcm card type 94. Eut the storage 
areas for the fields defined in lines 5-10 
receive new data from each of the four card 
types. 

To illustrate by a few examples: 



1. 



2. 



3. 



4. 



5. 



^Lav^ 



The storage area for the field named 
FLDA3 receives new data cnly frcm the 
card type to which Resulting Indicator 
91 was assigned. 

The storage area for the field named 
FLDD receives new data from every card 
of type 91 or 94. 

The storage area for MCMTH receives new 
data cnly frcm cards cf type 92. 

The storage area for the field named 
FLDA1 receives new data frcm every card 
(in the OR-relation grcup of card 
types) . 

The field named FLDA2 appears in line 
06 without Field-Record Relation, and 
in line 17 with Field-Record Relation 
indicator 92, although the source 
columns (46-50) are identical. This 
was necessary because it is part cf a 
split ccntrcl field, and the other part 
of the split L1 Control Level is 
assigned to different source columns 
(cols. 6-10 versus eels. 1-5). 

When a card of type 92 is read, the 
data for the field named FLDA2 is 
stored twice in the same process area. 
Core storage space is saved by using 
the same field name. (Of course, if 
different source columns applied in 
lines 06 and 17, the data described on 
line 17 would be availatle fcr proces- 
sing whenever indicator 92 is en — it 
would replace data in the field 
described in line 06.) 



Fie ld Indicators — Cols. 65-70 

Any indicator code, except L0, may be 
placed in any of these three sets cf two 
columns (cols. 65-66, 67-68, 69-70) . The 
corresponding indicator is treated like a 
resulting indicator for the contents of the 
field described in that line: the indica- 
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Assignment of Field Indicators to a nu- 
meric field causes the contents to become 
signed (hexadecimal C or D— see EBCDIC 
table, Appendix D, Figure D1) if the input 
field was unsigned (hexadecimal E or F) . A 
-0 field becomes +0. 

NOT E: To test a numeric field for Plus, 
Minus, or Zero/Blank, each column must con- 
tain a valid decimal digit or blank with 'or 
without sign; i.e., all entries must be 
represented in EECDIC table rows, 0-9 (see 
Appendix D, Figure D1). 



Plus (Cols. 65-66) 

Enter the code of the indicator that is to 
be turned on whenever the value of the 
associated input field is positive. 

An input field is treated as positive if 
the punch combination in the low-order card 
column is represented in any of the columns 
of the EECDIC table (see Appendix D, Figure 
D1 ) except D — but excluding EBCDIC 60 — and 
provided all punch combinations in the 
field do not fall in row of the EBCDIC 
table. 

Expressed in terms of common usage: the 
field is treated as positive if the low- 
order position does not have an 11- 
overpunch, provided the numeric contents of 
the entire field are not zero or blank. 
(See special rules for packed input data, 
under Packed, Column 4 3.) 

Columns 65-66 (Plus) may have an entry 
only for fields defined as numeric (0-9 in 
col. 52) . 



Minus (Cols. 67-68) 

Enter the code of the indicator that is to 
be turned on whenever the value of the 
associated input field is negative. 

An input field is treated as negative if 
the punch combination in the lew-crder card 
column is eguivalent to EBCDIC 60 or is 
represented in column D of the EBCDIC table 
(Appendix D, Figure D1), provided all punch 
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combinations in the field do net fall in 
row of the EECDIC table. 



Expressed in terms of common usage: the 
field is treated as negative if the low- 
order position has an 1 1-overpunch, pro- 
vided the numeric contents of the entire 
field are not zero or blank. (See special 
rules for packed input data, under Packed , 
col. 43.) 



Columns 67-68 (Minus) may have an entry 
only for fields defined as numeric (0-9 in 
col. 52) . 



Field Indicators are actually turned on 
or off — based on the status of the asso- 
ciated input field--just before detail-time 
calculations. (See EPG Pro gram Logic, 
Figure 6.) 

An input field may te assigned different 
indicators for two, or all three, of the 
conditions (Plus, Minus, Zero or Blank) . 
When the program turns on the indicator for 
the condition that applies, it turns off 
(if they were on) the indicators assigned 
for that field to the conditions that do 
not apply. Thus, with the exceptions 
stated in "Points to Note" below, only one 
Field Indicator is on at one time for one 
field. 



o 



Zero or Elank (Cols. 69-70) — Field Defined 
as Alphameric (Ccl. 52 Blank) 

Enter the code of the indicator that is to 
be turned on whenever the associated input 
field is completely blank. (Zeros, and 11- 
and 12-punches, are not treated as blanks.) 



The same indicator may be assigned to 
more than one criterion for the same field 
— for example, to Plus and Zero. It is 
then turned on if either condition is 
satisfied . 

Points to Note 



1. 



Zero or Elank (Cols. 6 9-7C) --Field Defined 
as Numeric (0-9 in Ccl. 52) 

Enter the code of the indicator that is to 
be turned on whenever the associated input 
field consists entirely of zercs and/or 
blank columns and/or zone punches. 

Expressed broadly, the indicator 
assigned here is turned en if all punch- 
combinations in the field are represented 
in row of the EBCDIC table (Appendix D, 
Figure D1). (See special rules for packed 
input data, under Packed, ccl. 43.) 



Note, for example, that a field of zeros 
with a 12- or 11-overpunch (in the low- 
order or any other position) turns on the 
indicator assigned here--nct the indicator 
assigned to Plus or Minus. 

Therefore, if the signs are in the high- 
order column of input fields, and that 
column could contain zero for its data por- 
tion, the signs should be tested by TESTZ 
in the calculation specif icatiens — not by 
defining the high-order column as a sepa- 
rate input field and attempting to test for 
Plus or Minus. 
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2. 



The indicators normally used as Field 
Indicators are 01-99, H1, E2. Use of 
any others reguires a complete grasp of 
the sections Program Logic Flow, Indi- 
cators, and Indicator Hierarchy, in the 
chapter P r gg r a m m in g for RP G- -General 
Information . 

Assignment of indicator H1 or E2 
causes the program to halt after pro- 
cessing of the card for which H1 or H2 
is turned on, unless the indicator is 
turned off by. a programmer's instruc- 
tion in the detail-time calculation 
specifications for that card. (It can 
only be turned eff at detail time, 
because Field Indicators are not turned 
on until just before detail-time calcu- 
lations, and the halt — if H1 or H2 is 
on — occurs shortly after detail-time 
output (see Figure 6, BPG Program 
12J3 icl • ) 

Field-Description entries are asso- 
ciated with the particular card type 
defined above them in columns 19-41; 
the specif icatiens in a field-descrip- 
tion line are executed only when a card 
of that type has been read. Therefore, 
the status of a Field Indicator can 
change (apart from exceptions itemized 
here) only after a card of the per- 
tinent type has been read. It may, 
therefore, remain en cr off while cards 
of other types are being processed. 
Consequently, different field indica- 
tors assigned to fields in different 
card types may be en concurrently. 

On the other hand, if the same Field 
Indicator is assigned to fields in dif- 
ferent card types, its status will be 
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3. 



4. 



5. 









based on the contents of the relevant 
field in the last card cf a pertinent 
type read. 

If the same indicator is assigned to 
mere than one field in the same card 
type, the last field entered with which 
the indicator is associated determines 
its status. 



7. 



If the same field name is 
two different sets of sour 
the same card—once with F 
tor and once without — the 
indicator will correctly r 
contents of the field with 
associated. Only cne core 
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ified last with that name, 
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This is a technigue for setting an 
indicator based on the contents cf a 
field — when the field is not otherwise 
needed for calculations or output — 
without consuming any cere space to 
store the data of that field. 

The same indicator used as a Field 
Indicator in the input specifications 
may also be assigned as a Resulting 
Indicator, or specified to be SFTCfl or 
SETOF, in the calculation specifica- 
tions. This may change its status dur- 
ing the processing of a card. 

Indicators assigned to Plus (cols. 65- 
66) or Minus (cols. 67-68) are off at 
the beginning cf object-program execu- 
tion. They do net turn on until the 
criterion is satisfied when a card of 
the pertinent type has been read. 
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Exception: If the same indicator is 
used both as card-type Resulting Indi- 
cator and as Zero-cr-Elank Field Indi- 
cator, it is not on at the beginning of 
program execution (1P time), because 
card-type indicators take precedence 
and are all off at the beginning (see 
Hierarchy., and. Summary cf Indicators) . 



9. 



Change of value in a field during cal- 
culations or output does not in itself 
change the status of a Field Indicator 
set on the basis of the value in the 
field at time cf input. 



However, if Elank-flfter (B in col. 
39) is designated for a field in the 
output specifications, the field is set 
to blanks (if alphameric) or to zeros 

(if numeric) immediately after the data 
is moved to the output storage area 

(the data is then lost to any subse- 
guent output operation). If a Field 
Indicator is assigned to Zero-or-Blank 
for that field in the input specifica- 
tions, the indicator turns on at that 
point during output, reqardless of its 
prior status (see also Blank-After 
under Prpgram_Ipgic_Flow)_. It is then 
on during processing of additional out- 
put specification lines and until 
turned off when the field is tested 
again in the next input card of the 
pertinent type, and found not to satis- 
fy the Zero-or-Elank condition. 



Note, however, that any Field Indi- 
cator assigned to Plus or Minus in the 
input specifications does not turn off 
(if it was on) when the indicator 
assigned to Zero-or-Blank for the same 
field is turned on by the Blank-After 
instruction. 

If Blank-After (B in col. 39) is desig- 
nated for a field in the output-format 
specifications, and more than one indi- 
cator has been assigned to that field 
to represent the condition Zero-or- 
Blank, only the first-assigned indica- 
tor is turned on by Blank-After. For 
example: 

a. An indicator (say, 25) is assigned 
to Zero-or-Elank for a field in 
Field Indicators of the input spec- 
ifications; and 

b. Another indicator (say, 40) is 
assigned to Zero-cr-Blank as 
Resulting Indicator, for the same 
field used as result field in the 
calculation specifications (arith- 
metic or TESTZ operation) ; then 

c. Blank-After turns on indicator 25 — 
the first-assigned indicator—not 
indicator 4C. 

Assignment of Field Indicators causes 
an unsigned positive numeric-field 
value (EBCDIC-table column E or F) to 
become signed hexadecimal C. 



Figure 27 illustrates assignment of 
Field Indicators. 
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Figure 27. Field Indicators 



Explanation of Entries in Figure 27 

S£§cif ication_line_02 shews how to turn on 
indicator H1 if cols. 1-5 of the data card 
are blank and/or contain zeros and/cr zone 
punches cnly. Because the field is defined 
as numeric (col. 52 has an entry), no dis- 
tinction is made in Field Indicators 
between blank, zero, and zene punches. 
(H-indicators assigned to Zero-cr-Elank are 
not on at the beginning--see Figure 11.) 



The H1 indicator may be 
cators 1-99 — to condition 
output specifications; e.g 
designated as a condition 
cular specification is exe 
EMPLNO is not zeros (or bl 
is zeros (or blank) in a c 
halts after that card has 
unless H1 is turned off du 
calculations by a programs 
specification. 



used--like indi- 
calculaticn and 
., NH1 may be 
sc that a parti- 
cuted only when 
ank) . If EMPLNO 
ard, the system 
teen processed, 
ring detail-time 
er's 



line 03 specifies that indicator 10 turns 
en if cols. 11-30 are blank — but net if 
they contain zeros, since the field is 
defined as alphameric. (Cnly Zero-cr-Elank 
may contain an entry for alphameric 
fields.) 

Li ne 4 causes indicator 01 to turn en if 
the field in cols. 31-34 is negative, and 
indicator C2 to turn on if it is zero (or 



blank) . This illustrates assignment of 
different Field Indicators to two condi- 
tions in the same field. 

Line_05 causes indicator 03 to turn on if 
cols. 7-10 contain zeros (or are blank). 

Lines 04 and 05 also illustrate how to set 
indicators based on the status of a field 
(cols. 31-34) that is not needed for any 
ether purpose, without tying up core 
storage space for it. The data in cols. 7- 
10 is to be used subseguently, and is 
stored at the location for HBSWEK. Note 
that the format must be uniform for the two 
fields that were assigned the same name. 

Line_06 specifies indicator H2 if cols. 
7-10 are blank — as distinct from zero. In 
line 05, an indicator (03) was specified if 
the same field is zero or blank. We have 
arbitrarily — to illustrate a point — made 
the assumption that hours worked may legi- 
timately be zero; but that a blank field 
represents an error for which we wish to 
bypass processing (by using NH2 as condi- 
tioning indicator in calculations and out- 
put) and after which we want to halt. 
(Perhaps the card was missed by the key- 
punch operator.) To recognize the blank 
field, the field had tc be specified as_ 
alphameric; to use the data in arithmetic 
operations, the field must be defined as 
numeric: hence, the field is described 
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twice, with different names. The alphamer- 
ic field alsc allows testing for high-crder 
zone punches in the calculation specifica- 
tions; these zcne punches might be intended 
to identify special situations. 

Lines 02, a nd 06 used up the available bait 
indicators. -Therefore, although a blank 
NAME field represents an error, H1 or H2 
cannot be used in line 03; another indica- 
tor (in this case 10) can be assigned, and 
used in the detail-time calculation speci- 
fications to turn en H1 or H2 if a halt is 
desired. 

If H1 had been assigned to Elank for 
NAME, as well as to Zero-or-Blank for 
EMPLNO, then: when the NAME field is not 
blank, H1 is turned off even if EMPLNC is 
zero (or blank) ; i.e., the later test 
supersedes any earlier test for the same 
indicator. 

Line 8 again assigns indicator H1 to zero 
(or blank) in the EMPLNO field. However, 
this line applies to a different card type. 
The status of this indicator is thus 2. 

revised for each card; but the status of H 1 
does not conflict for twe fields within the 
same card. 

Line 09 shows assignment of three different 
indicators for the three possible states of 
values in one field. 

Line 10 identifies positive values in the 
field by one indicator (34) and zeros (or 
blank) by another (40) . 

Line 1 1 assigns indicator 35 to cards with 
a positive value in cols. 15-18, or with 
zeros (or blank) in cols. 15-18. It will, 
therefore, be en if either condition is 
satisfied. 

Line 1 2 illustrates use of the same indica- 
tor for different purposes in different 
cards (see line 05) . Its status will, 
therefore, be revised for each card. 

Points to be Especially Noted in Figure 27 

1. Indicators 01-99 assigned to Zero-cr- 
Blank (cols. 69-70) are on at the 
beginning of object- program execution. 
Thus, indicators 02, 03, 10, 33, 35, 
and 40 are on during heading-and- 
detail-time output preceding the read- 
ing cf the first card. 

Indicators H1 and H2 are off at the 
start of program execution because H1 3. 
and H2 take precedence, in the indica- 
tor hierarchy (see Figure 11), oyer 
Zero-cr»-Blank indicators. 

The fact that indicators 01-99 
assigned to Zero-or-Elank are on ini- 



tially calls for caution in two 
respects: 

a. Detail-time output operations con- 
ditioned only by the ON status of 
any of these indicators will be 
executed before the first card has 
been read--i.e., during 1P time; 
and 

b. These indicators remain on until 
the first pertinent card has been 
read. 

For example, with the program- 
ming in Figure 27: If the first 
ten cards all happen to be type 25 
(i.e., the first type listed, to 
which card-type Resulting Indicator 
25 was assigned) , indicators 33, 
35, and 40 are on while these cards 
are processed—since no pertinent 
card (type 28) has yet been read to 
test the fields to which these 
indicators are assigned. 

Once the status of Field Indicators has 
been determined for the fields in a 
card, the status is net revised until 
the next card of a pertinent type is 
read. (Exceptions: Blank-After, 
described below; H1 and H2; and chang- 
ing the status of a Field Indicator by 
an entry in the calculation specifica- 
tions.) For example: 
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The H1 and H2 indicators are 
always reset by the program before 
a new card is processed (after 
restart by means of the CPU START 
key), if net set off before then by 
an instruction in the calculation 
specifications. 

Indicator 03 appears as Field 
Indicator in line 05 and line 12. 
Its status is therefore revised for 
each card. 

Field Indicators for "Zero-or-Elank 
(eels. 69-70) are turned on immediately 
when the correspondinq field is set to 
blank or zero by entry of a B in col. 

39 (Blank-After) in the cutpu t-f crmat 
specifications. Any ether Field Indi- 
cator previously set (for Plus or 
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Minus) for the field is not turned off 
therety. For example: 

If B is entered in ccl. 39 in the 
output-format specifications next 
to EMPLNO, the H1 indicator turns 
en as soon as the EMFLNG data has 
teen transferred tc the cutput area 
during an output operation involv- 
ing EMFLNO (if H1 is on at the end 
cf detail-output time, the system 
halts thereafter) . Similarly, 
indicators assigned to Zero-or- 
Elank for other fields turn en dur- 
ing an output operation if Blank- 
After is specified for those 
fields. 
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GENERAL INFORMATION 

The calculation specifications (see Figure 
28) particularize 



1. The operations to be performed by the 
object program upon 

a. the input data, and 

b. data obtained as a result of other 
calculations 

2. Look-up of data contained in tables 

3. The identification of data conditions, 
to facilitate control of subsequent 
calculations and of output operations 
based on calculation results. 



Three general rules govern the writing 
cf calculation specifications: 

1. Each operation is specified on a separ- 
ate single line of the form (and, 
hence, punched into a separate specifi- 
cation card) . 

2. Calculation operations to be performed 
at .detail time must all be specified 
ahead of those to be performed at total 
time. However, total-time calculations 
need not be grouped ty level of total 

(i.e., different I-indicator lines may 
be intermixed) . 

3. Within the grouping of detail time or 
total time, calculation operations are 
performed in the order in which they 
are specified. (See GOTO, below, for 
exception. ) 
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Note: At the beginning of object-program 
execution, fields defined as alphameric are 
blank (hexadecimal 40) and those defined as 
numeric contain "unsigned" zeros (all 
zeros, except low-order position is hexade- 
cimal OF). Iherefore, no calculation spec- 
ification is required solely to clear 
fields at the start. 

The entries for the Calculation Specifi- 
cations form are divided into three cate- 
gories, as shown in Figure 28. 

1. Conditioning Fields — Columns 7-17 

Indicator codes entered in these fields 
determine the conditions under which 
the calculation specification in that 
line is to be executed. 

Note: Grouping specification lines 
with identical conditioning indicator 
entries (in cols. 7-17) saves core 
storage space and program execution 
time. 



7-8 — which other conditions, in terms of 
status of indicators, must be satisfied to 
implement the specifications in that line. 

The four fields (cols. 7-8, 9-11, 12-14, 
15-17) are in an AND relationship; i.e., 
all stated conditions must be satisfied for 
the specifications in that line to be 
executed. 

There is an essential difference between 
applying indicators as conditioning 
indicators — as exemplified by cols. 7*17 
here, and cols. 23-31 in the output- format 
specifications — and assigning indicators as 
Besulting or Field Indicators — as exempli- 
fied by cols. 19-20, 59-60, and 65-70 in 
the input specifications, and cols. 54-59 
in the calculation specifications: 

A Besulting or Field Indicator changes 
status (on or off) as the condition with 
which it is associated is tested, and the 
criterion to which it is assigned is either 
satisfied or not satisfied. 



O 



Calculation Fields — Columns 18-53 

Entries in these fields define the kind 
of operation to be performed, the data 
involved in the operation, and the 
result field. 

Besult-Testing Fields — Columns 54-59 

Any indicator code may be entered in 
any of these Resulting Indicators 
fields. When the operation specified 
in a line has been executed, the indi- 
cator (if any) assigned to the condi- 
tion that accords with the result is 
turned on; those (if any) assigned to 
other result conditions are turned off. 

These Resulting Indicators can be 
used as conditioning indicators to con- 
dition the execution of other calcula- 
tion specifications and/or output 
specifications. 



CONEITIONING PERFORMANCE 01 CALCULATIONS 
(COLS. 7-17) 

If the conditioning fields (cols. 7-17) are 
blank, the specifications in that line are 
executed at detail time of every program 
cycle. 

The Control-Level field (cols. 7-8) pro- 
vides for determining whether a calculation 
specification is to be performed at detail 
time in the program cycle (i.e., eels. 7-8 
are blank) , or at total time of a given 
level (i.e., there is an L-indicatcr entry 
in cols. 7-8). The Indicator fields (cols. 
9-17) provide for determining — within the 
limits established by the contents of cols. 



The same indicator, reflecting a criter- 
ion previously tested, may then be applied 
to condition a calculation or output speci- 
fication to be executed only if the indica- 
tor is on, or if it is not on, as desired. 
Applying the indicator as a conditioning 
indicator never changes its status (on, or 
not en) . 

Control._Ievel2-ColSj._7 -8 

If this field is blank, the operation spe- 
cified in that line is to be executed at 
detail time — and subject to conditioning 
indicators specified in cols. 9-17. 

If a g^^rol-- Leva 1 | j T 44f^t^ ~--fio, l de-- rr | LP . 

x^^f^^^^y*^^^^^^'''^^ cols . 7-8 .. . 
op exjaJLkui sp e ci f i e d Jj lJ; h at 11 n eisH-flTjie 



exec uted, r a,t„ tofc a^ , 't.jL.me f p^oYiia"e"I' L 't'he^ 

i£^$ cJ^<&JUk§£^° n ^it i° n ,£JSL9L 1 "" lcators »«SE e ^ 

If a Control- level indicator L1-L9 is 
turned on in the normal manner — bya con- 
trol break— it is on from (and including) 
the total time following the last card of 
the previous control group through detail 
time of the first card of the new control 
group. The last-record indicator (LB) is 
on during total time following the last 
data card of the appropriate file(s). The 
L0 indicator is on at the start of program 
execution and is never turned off by the 
BPG program itself. It can only be turned 
eff by a programmer's specification 
(SET0F) . It is turned on again by the RPG 
program immediately after detail-time out- 
put, in other words, after a new card has 
been read. Any of _ ...the indi cators LE^L9^ 
L2 — if t u r n e d^orf' Tn 7 % h e^^ — 

t rr n , nl|)||l yn-Y r- 



o 



104 System/360 Model 20 CPS Report Program Generator 



also turns on all lower-3 yfe^, ,1- Jn^r.atnrs. 
/except LP) ffik the same, .pfljjfl^ 



1 1 



The operation of L-indicators f and 
detail and total times in the program 
cycle, have been thoroughly covered else- 
where. See BPG im Pr ogram Logic (Figure 6) , 
Relation of Total Time to Card Movement, 
and Total-Ti me P rocessing on "Run-in" — all 
under Program., Lo g ic, Flow; LJ-LJ X S pec ial 
Consideratio ns fo r Indicators L1-L9 on 
^Run -In " , LO, LR # and Indicator Hierarchy 

(with Figure 11) — all under Indicators; 
C ontrol L evels — unde r Matching, o f Fil es ; 
De cimal Po sitions (col. 52) , F ield N ame 

(cols,. 53;-58) u ;_ Defining u the S a me Da ta 

Field as Bot h , Alphameric and Numeric , Con- 
t rol Level (cols. 59-60) , and F ield- Record 
Relation (cols. 63-64) — all under Input 
Specifications. 



Indicators — Cols. 9-17 

If these fields are blank, the specifica- 
tions in that line are executed in every 
program cycle--subject to the status of any 
L-indicator that might be specified in 
cols. 7-8 (see Cont rol, Level, cols. 7-8, 
above). If cols. 7-8 are also blank, the 
specifications are executed at detail time 
of every program cycle. 

an ^aicat r or code in co ls. 1 C- 1 1 f 13-1 M ^ 
or 16-17 instr^ta.-t^^prQCHcaji,. to execute 



entered in the column preceding the indica- 
tor code "(col . '9, TrroT° TTr~F&SP& ^T<^W™ 

*•— — — — — ra mimJi nr i T i nn|ir iir B.pa i i it w m iji» w . iil nii i , i .L i ^i'l i»»»if< i«' "W 7 rr nin iiaw» r ft ii l u < , i J |l| , , | | l |, l | _ l , „^ t -^^ 1 , ', l| ( ,' 



jSTote: Any EBCDIC character other than N in 
col. 9, 12, or 15 has the same meaning as 
a blank. 

Dp to three different conditioning indi- 
cators may be designated by entries in the 
three Indicators fields for one specifica- 
tion line. Each may be required to be on 
(first column of relevant Indicators field 
blank) , or off (N in first column of rele- 
vant Indicators field) , as a condition of 
execution of the specifications in that 
line. 



Any indicator m 
9-17. The program 
ever, that the sta 
have a different s 
and at detail time 
absence of entry, 
mines whether the 
line are executed 
For instance: 



ay be specified in cols, 
mer should remember, how- 
tus of an indicator may 
ignificance at total time 
— and it is the entry, or 
in cols. 7-8 that deter- 
specif ications in that 
at total or detail time. 



1 . At total time, the BE indicator. 

reflects the Matching status oT the 
previous card--n fl f " |hat ftf ^ g TlfiW flJif 

that caused the contra l break^ At 

detail time, h owever, KB reflects'""" the 



2. With Control Level (cols. 7-8) blank, 
an I-indicator (I1-L9) in one of the 
fields in cols. 9-17 does not pertain 
to an operation at total time-- it con- 
ditions the specifications to b¥ 
- qxecu tpfl onlv "at. Hetai I time of ^fre 

J; h fl * r- 1 r hi g- he r f 1 e y e 1 . 

Note: If execution of a calculation- 
specification line is conditioned by indi- 
cators in columns 7-17, remember that the 
operation will not be executed during each 
program cycle unless the status of the con- 
ditioning indicator is appropriate. There- 
fore, resulting indicators (cols. 54-59) 
could reflect an earlier, and possibly 
inapplicable, operation. 



Assuming only standard methods of assigning 
and utilizing Resulting and Field Indica- 
tors, the Indicator codes entered in these 
fields (cols. 9-17) condition execution of 
a calculation specification based on the 
following factors: 



1. If the indicator was ass 
type Resulting Indicator 
specifications (cols. 19 
cf the calculation speci 
confined to the processi 
cular card type, or--if 
(in the first column of 
conditioning Indicators 
card type other than tha 
one. 



igned as card- 
in the input 
-20) , execution 
fication is 
n,g of a parti- 
N is entered 
the relevant 
field) — to any 
t particular 






The three fields (cols. 9-11, 12-1M, 
and 15-17) are identical in function. If 
only one or two conditioning indicators are 
assigned, it does not matter which of the 
three fields are used. Entries in these 
fields are in an AND relationship to each 
other, and to any L-level indicator in 
cols. 7-8. Hore than three conditioning 
indicators cannot be specified in an AND 
relationship directly; nor can CR relation- 
ships be specified directly. Methods for 
achieving the equivalent results are shown 
in Progr a mming Tips, Appendix E. 



If the indicator was assigned as a 
Field Indicator in the input specifica- 
tions (cols. 65-70) , execution of the 
calculation specification is dependent 
on the status of the input-data field 
with which the indicator was asso- 
ciated. The Field Indicator reflects 
the input-data status after the field 
was last read as input or, if the indi- 
cator was assigned to Zero-or-Blank, 
the status before the field was read or 
after it was cleared by a Blank-After 
instruction in the output specifica- 
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tions-- whichever occurred most recent- 
ly. The status of a Field Indicator is 
not altered by changes in the contents 
of the associated field that might be 
the result of calculation 
specifications. 

3. If the indicator is assigned as a 

Eesulting Indicator in this or another 
line of the calculation specifications 
(cols. 54-59 — discussed later) , execu- 
tion of the calculation specifications 
in this line is controlled by the 
result of a calculation performed ear- 
lier. Note that; 

a. The Eesulting Indicator reflects 
the result last obtained. If the 
pertinent calculation has not yet 
been performed, the indicator is 
off (unless it is assigned to Zero- 
or-Elank # when it is on initially 
and is also turned on by Blank- 
After — see Output- Form at 

Sp ecif ica ti on s)_ . 

If the pertinent calculation is 
only performed under certain condi- 
tions, the indicator may still 
reflect an earlier — possibly 
obsolete — result. 

b. If the conditioning Indicator 
(cols. 9-17) is also a Eesulting 
Indicator in the same line (cols. 
54-59) , its status is not changed 
by the instructions in that line 
until after the specifications in 
the line have been executed. 
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Figure 29. Calculation Conditioning 
Indicators 

Eemember that, at total time, a 
card-type Eesulting Indicator is that 
of the next card, whereas a Field Indi- 
cator is based on a previous card. 
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Figure 29 illustrates the use of condi- 
tioning indicators with calculation speci- 
fications. Only standard applications of 
indicators have been assumed; non-standard 
uses are encompassed by the explanations 
under Indicators in Program ming fo r BPG-- 
General Information. 



Explanation of Entries in Figure 29 

Line 01 specifications will be executed at 
detail time (cols. 7-8 blank) of all cards 
(cols. 9-17 blank) . 

Line 2 specifications will be executed at 
detail time for all cards for which indica- 
tor 16 is on at that point. If, for 
example, indicator 16 is a card- type 
Eesulting Indicator, the line is executed 
at detail time for all cards of type 16. 

Line_03 specifications will be executed at 
detail time for all cards for which indica- 
tor 16 is not on at that point. 

Line OH specifications will be executed at 
detail time for all cards for which indica- 
tor 25 is on, and indicators 18 and H1 are 
not on, at that point. 

Line_05 specifications are executed at 
detail time of the first card of a control 
group, provided indicator 25 is also on at 
that point. If, for example, indicator 25 
represents a card type, the specifications 
in the line are executed at detail time of 
the first card of a control group, if that 
is a card of type 25. 

Line_06 specifications are executed at 
detail time if the MB indicator and indica- 
tor 16 are both on at that point. 
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Note that, if indicator 10 is a card- 
type Resulting Indicator, it refers to the 
first card of the new ccntrcl group; if it 
is a Field Indicator, it reflects the sta- 
tus of an input field the last time a per- 
tinent card type was read preceding the 
control break. The data available at total 
time is still that from the last card cf 
the control group. 

Line 8 is executed at total time following 
the processing of the last card cf every 
control group: since a ccntrol break cf 
any level turns en the L-indicatcr for that 
level and for all lewer levels, L1 turns on 
for a ccntrcl break of any level. The data 
from the last card of the ccntrcl group is 
still available at this time. 

Line 09 illustrates an application cf the 
L0 indicator. Assumptions are: it is 
desired to calculate a value at the end cf 
each page, to be printed at the bottom of 
each page, except when a control break 
occurs at the same point. 



In order to calculate befor 
advance to the new page, yet w 
already known whether a centre 
been ccmrleted and whether car 
channel 12 was encountered at 
time, the calculation must be 
time: total time precedes ove 
output. L-indicators for the 
a new control group are alread 
overflow indicator is also en 
tape channel 12 (i.e., the pci 
ing the calculated value at th 
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ceding detail-time output. 
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rf lew- time 
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Indicator L0 designates that the speci- 
fications in the line are to be executed at 
total time, provided L0 is en (its normal 
state) . Indicator OF further designates 



that the overflow indicator must be en 
(i.e., channel 12 encountered during pre- 
ceding detail-time output) for the specific- 
cations in the line to be performed. Since 
the calculation is not desired at the end 
of a control group, DL1 suppresses it when 
a ccntrol break coincides with the end of a 
page. L0 — which is defined as a Control- 
Level indicator--had to be used to associ- 
ate the line with total time since, by 
definitionof the problem, no ether Contrcl- 
Level indicator is on when the specifica- 
tions in the line are to be executed. 

Line 10 specifications are executed at 
total time following the last data card of 
the input (cr combined) file or, if there 
are multiple input (or combined) files, the 
last pertinent file. (See File Description 
Spe cifications, col. 17, and In dicators , 
LR.) When LR is on, all other Control- 
Level indicators (L9-L1) are also on. The 
job terminates following total-time output. 

Figure 29 also illustrates that all spec- 
ifications to be executed at detail time 
must precede those tc be executed at total 
time; within tctal-time specifications, 
order need not be maintained by Control 
Level. 



SPECIFYING THE KINDS OJ CALCULATIONS 
(COLS. 18-53) 

Entries in this section (cols. 18-53) of 
the calculation specifications define the 
actual calculations (or guasi-calculations) 
to be performed. The following components 
of calculation operations are designated in 
these specification fields: 

1. The data fields that enter into the 
operation: Factors 1 and 2. 

2. The type of operation tc be performed 
on the data: Operation. 

3. The form of the result: Result Field 
name, length, decimal-point location, 
half-adjustment. 

The fields in this section are described 
in the seguence that lends itself best to a 
clear understanding of their relationship, 
rather than adhering strictly to the order 
of fields in the specifications. 

Note: At the beginning of program execu- 
tion, Factor and Result Fields are blank 
(if alphameric) or "unsigned" zero (if 
numeric) . 
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Factor 1 — Cols. 18-27 and 
Iactor_2--Ccls._33:i42 

Factor 1 and Factor 2 contain the Dames of 
the data fields, or the actual data 
(literals) , that provide the source infor- 
mation for the majority of the operations. 
Some operations involve both Factors; some 
only utilize one; and a few operations do 
not use a Factor field. 
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If a field whose name is used in the 
calculation specifications appeared in the 
input specifications, it must have been 
fully defined there, and cannot be defined 
differently (as to format, size, decimal 
point) in the calculation specifications. 
A field need be defined only once, although 
an identical redefinition is permitted. 

Field names must be recorded in the Fac- 
tor fields left- justified (i.e., begin in 
col. 18 or 33, respectively) . 



literals 

A literal is the actual data to be used in 
the calculation, rather than a field name 
representing the location cf the data in 
core storage (see also Literals, under 
pefiniticn_pf_ Terms) . The program is able 
to distinguish between literals and field 
names by virtue of a restriction on the 
initial character (col. 18 or 33, 
respectively) : 

The first character cf a numeric liter- 
al is cne of the digits 0-9, a decimal 
point, a plus sign, or a minus sign. 
(If European notation is specified in 
the EPG Control Card, a decimal comma 
takes the place of the decimal point.) 

The first character of an alphameric 
literal is preceded by an apostrophe 
(^--card punch-combination 5-8. 

The first character of a field name 
is one of the 29 characters defined as 
alphabetic (the 26 letters of the Eng- 
lish alphabet, plus three specific 
symbcls) — see Eef initicn of, T erm s. 
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Numeric Literals. A numeric literal may 
consist of any combination of the digits ( 
through 9. One decimal point (decimal 
comma, if European notation) and/or one 
sign may also be included, but no other 
characters or symbols. Its maximum total 
length is ten characters. 



Rules for Forming Numeric Literals 

1. Blanks must not appear within a numeric 
literal. 

2. If a sign is part of the literal, it 
must be the leftmost character. 

A plus sign is represented by the 
punch-combination 12-6-8; a minus sign, 
by an 11-punch. 

An unsigned numeric literal is 
treated as positive in arithmetic 
operations. 

The positive or negative status of a 
numeric literal is automatically taken 
into account in arithmetic operations. 

3. One decimal point (card punch-combi- 
nation 12-3-8) can appear anywhere in 
the literal, even ahead of the first 
digit. (If European notation, decimal 
comma applies instead.) 

When the literal is used in an 
arithmetic or compare operation, the 
program performs decimal alignment 
according to the position of the deci- 
mal point. If there is no decimal 
point in the literal, the program 
assumes the decimal point to follow 
immediately to the right of the last 
digit; i.e., the literal is assumed to 
be an integer. 

Alphameric litera ls . An alphameric literal 
consists of any combination of characters, 
including blank, from the 256-character 
EBCDIC set (see Appendix D, Figure D1) . 

An alphameric literal must be enclosed 
by apostrophes ('), card punch-combination 
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5-8. The first apostrophe identifies the 
entry as an alphameric literal; the termin- 
al apostrophe signals the end of the liter- 
al (since blanks are valid in alphameric 
literals, the program has no other means of 
recognizing the end) . The reguirement for 
initial and terminal apostrophes limits the 
body of an alphameric literal tc a maximum 
of eight characters. 

An apcstrcphe reguired as part of the 
literal itself is represented by two apos- 
trophes; i.e., two consecutive columns, 
each punched 5-8. If such a literal is 
used for output, cnly one cf the dual apos- 
trophes is punched or printed, and the por- 
tion to the right cf the internal apos- 
trophe is shifted left one position so as 
not to introduce a spurious blank. This 
limits an alphameric literal with one 
internal apostrophe to seven meaningful 
characters. 

Alphameric literals may be used for com- 
pare, move, test zone, and table look-up 
operations; tut they must not be used in 
arithmetic operations. 

Figure 30 depicts seme samples of Factor 
entries. While Factor 1 is shown, Factor 2 
would be egually applicable. 

Explanation cf Entries in Figure 30 
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Figure 3 0. Factor Entries 

Line 01 shows a field name: the first 
character is alphabetic. The field must 
either have been defined in the input cr 
file extension specifications, or it must 
be defined as a Result Field (cols. 43-48) 
somewhere in the calculation 
specifications. 

When the specifications in line 01 are 
executed, the Factor-1 data is obtained by 
the program from the core storage location 
assigned tc NETAMT. 



Line 02 also shows a field name: S is one 
of the three symbols defined as alphabetic 
(see Definition of Terms) . 



Lines 03-07 illustrate numeric literals: 
the first character is numeric, or a sign, 
or a decimal point. 

The literals will be decimal-aligned by 
the program, in arithmetic and compare 
operations, in accordance with their speci- 
fied decimal point. When the literal 
includes no decimal point, it is treated as 
an integer. The literal in line 04 is 
therefore treated as (12500.), and that in 
line 07 as (1.). The plus sign in line 07 
must be punched as 12-6-8. 

Numeric literals without sign are 
treated as positive in arithmetic and com- 
pare operations; therefore, the literals in 
lines 03, 04, and 05 are positive. Note 
that a sign, if specified, must be leftmost 
(lines 06 and 07) . 

A numeric literal terminates with its 
rightmost character (digit or decimal 
point) ; it cannot contain blanks. There- 
fore, the literal in line 03 ends with the 
zero in col. 25; the literal in line 04 
ends with the zero in col. 22. Note that 
(except for a decimal comma in European 
notation) cemmas are not permitted in nu- 
meric literals: for example, the number in 
line 04 may not be written as 12,500. 

Lines 01, 05, 06, OS, 09, and 11 illustrate 
the maximum permissible lengths for the 
three types of Factor entries: six posi- 
tions for a field name; ten positions, 
including sign and/or decimal point, for a 
numeric literal; and eight positions, plus 
the two delimiting apostrophes, for an 
alphameric literal. 

Lines 08-11 portray alphameric literals: 
the first and last characters are 
apostrophes . 

Alphameric literals might, for example, 
be compared against data-field contents, 
serve as search arguments in a table look- 
up operation, or be printed out after being 
moved into a data field. They cannot be 
used in arithmetic operations. 
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tine 10 also illustrates that an alpha- 
meric literal may contain digits. If 
desired, a numeric value may be expressed 
as an alphameric literal by enclosing it in 
apostrophes. (It cannot, then, be used in 
arithmetic operations.) 

line 1 1 shows that an alphameric literal 
may contain spaces and special characters. 

Throughout, note that all entries are 
left- justified. 

fipgr, at io n~-C ol s. _ 28- 3 2 

Entries in these columns specify the opera- 
tion to be performed using the entries in 
Factor 1, and/or Factor 2, or Result Field. 
Each operation is specified by placing the 
appropriate operation code in this field, 
left- justified (i.e., beginning in ccl. 
28) . Detailed information en the various 
operations is given in the section titled 
im .tries., in the Operation Field . 

All numeric compare and arithmetic 
operations are performed according to the 
rules of algebra: signs are taken into 
account, and decimal alignment is 
automatic. 

J^sult^ield— Ccls^i^^S 

The field name entered in Result Field 
(Cols. 43-48) is associated by the program 
With the core location at which the result 
of the operation is to be stored. (In the 
case of two particular operations, TESTZ 
and I0KUP, the entry in this field repre- 
sents the location of source information 
for the operation.) The user always 
references the field by the mnemonic name 
he assigned to it, and need never concern 
himself with the actual core storage 
location . 

If the field name appeared in the input 
or file extension specifications, it must 
have been fully defined there (as to size, 
format, position of decimal point) . The 
field name in Result Field then suffices to 
reference the storage location, and no 
definition of the field is required in the 
calculation specifications. If the field 
name did net appear in the input or file 
extension specifications, the field must be 
fully defined once in the calculation spec- 
ifications, so that the program can assign 
an appropriate core storage location to it. 
The definition need not be in the first 
calculation specification line in which the 
field nane appears. 

Defining a field in the calculation spec- 
ifications consists of: 

a. Entering a field name in Result Field 

(eels. 43-48) in any specification line 
to which the result field applies. 



b. 



The name must begin in ccl. 43 with 
one of the 29 alphabetic characters, 
may continue with alphabetic or numeric 
characters, and may be one to six cha- 
racters long. (See De finition of 
Terms, for "alphabetic" and "numeric" 
characters — neither permits embedded 
blanks. ) 

Within these rules, any name may be 
assigned; except that names starting 
with PAGE and TAB are reserved for spe- 
cial uses (described later) . Names 
beginning with IN have a special mean- 
ing in RLAEL specifications; when used 
in other operations, they must not 
duplicate the exact characters INxx in 
the Result Field of an RLAEL line. 

Specifying the length of the field — see 
Field Length (cols. 49-51). 



o 



c. Defining the format— see Decimal Posi- 
tions (col. 52) . 

The same field name can be used in any 
number of calculation specifications; but, 
once defined in the input, file extension, 
or calculation specifications, it must 
never be redefined differently. Once 
defined, it need never be redefined at all 
--the field name alone becomes an adequate 
reference; but, if it is redefined, it must 
be fully and identically redefined: the 
contents of Field Length (cols. 49-51) and 
Decimal Positions (col. 52) must then be 
identical wherever the field name is 
defined or redefined and, if the field was 
defined in the input or file extension spec- 
ifications, Decimal Positions, and field 
length there must correspond. (But see 
note, under Field Length, concerning packed 
input fields. ) 

Field Length — Cols. 49-51 

This field is left blank unless the result 
field is to be defined (or redefined) in 
this line--see Result^ Field, above. 

If the Result Field is to be defined (or 
redefined) in this line, enter the lenqth 
of the result field for which core storage 
positions are to be assigned. (Leading 
zeros may be omitted.) So that the user 
need not think in terms of internal machine 
operations, the length is specified in 
terms of number of characters or digits, 
regardless of whether the field is defined 
as alphameric or numeric. 

Internally, numeric fields are stored in 
packed-decimal format (see Appendix D) and 
normally consume less core positions than 
the number of digits in the field; never- 
theless, Field length is specified here as 
though each digit occupied a separate byte 
(full position) in core. Therefore, in, 
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Maximum lenqths for factors and result 
fields ir calculation specifications are: 

15 positions fcr a numeric field; 

256 positions for an alphameric field; 
except: 40 positions each when compar- 
ing twe alphameric fields, and 80 posi- 
tions for table look-up. 

(For definition cf a field as numeric cr 
alphameric, see Decimal Pcsiticns—Ccl. 52, 
below and under Input Specif icatiens.) 

If the length assigned to the Result 
Field of an arithmetic operation is insuf- 
ficient tc accommodate the result of the 
operation, the result is first decimal- 
aligned--as are all arithmetic results — and 
then the excess high-order (most signifi- 
cant) positions are truncated (see Figure 
31) . Resulting Indicators assigned (see 
cols. 54-59) are then based en the retained 
digits crly. 

If Half-Adjust is specified (see ccl. 
53) , Field length applies tc the length of 
the result field after half-adjustment has 
been executed (i.e., after the extra posi- 
tion required for half-adjustment has teen 
dropped) . 



Decimal Positions — Col. 52 

Column 52 is left blank if: 

The operation does not involve a result 
field ; or 

It is desired to define the result 
field as alphameric; cr 

The result field has been defined else- 
where (in the input specifications, the 
file extension specifications, cr 
another calculation specification 
line) , and it is not desired to rede- 
fine it here. Once defined, it need 
never be redefined (if redefined, the 
contents of Decimal Positions, col. 52, 
must agree with the original 
definition) --see Result Field, above., 



An entry (0-9) in Decimal Positions 
defines the associated result field as nu- 
meric and specifies the number of positions 
to the right of the decimal point. If no 
decimal places (i.e., only whole numbers) 
are tc be retained in the numeric result, 
is recorded in col. 52. If a field that 
must te defined as numeric is not used in 
compare or arithmetic operations, any digit 
0-9 (within field-size limit) may be speci- 
fied, regardless of actual number of deci- 
mal places. 



Fields used in arithmetic o 
numeric compare— or to be edit 
suppressed for output--must be 
numeric. Arithmetic operation 
addition, subtraction, multipl 
division (and movement of rema 
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The number specified in Decimal Posi- 
tions (col. 52) must neither exceed 9, nor 
be greater than the field length specified 
for the result field. It may, however, be 
greater or less than the number of decimal 
digits that result from the operation, pro- 
vided the assigned field length is large 
enough. If the Decimal-Positions specifi- 
cation is greater than the number of deci- 
mal places that result from the arithmetic 
operation, an appropriate number of zeros 
is appended at the right; if it is smaller, 
the excess right-hand positions are trun- 
cated after completion of the arithmetic 
operation. (If Half-Adjustment is speci- 
fied by H in col. 53, truncation takes 
place after half-ad justment .) 
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Malf-Adjust--Col jr _5 3 

If this column is' left blank, the result is 
stored in the Result-Field core storage 
location exactly as calculated, retaining 
the number of decimal places specified in 
column 52. Column 53 raust-ie left blank 
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for all ncn-arithmetic operations (and for 
a Divide operation that is followed by the 
Move Remainder operation). 
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R (Half-Adjust) is placed in col. 
last decimal position to be 

in the result (per specification 
52) is rounded, by the equivalent 
q 5 to the next decimal position. 
ss decimal positions are then 

and the remaining result is stored 
ore storage location assigned by 
ram to the Result-Held name. The 
provides for proper rounding of 
itive and negative values. 



In this FPG program, half-adjustment is 
actually performed as fellows, although the 
effect is the same as though the leftmost 
position to be dropped were increased abso- 
lutely by 5: 

1. The arithmetic operation specified in 
the line is completed. 



2. That portion of the original result 
that is to be dropped — i.e., the digits 
in the positions to be dropped — is 
added algebraically, in the same posi- 
tions, to the entire original result. 

3. The excess right-hand positions are 
dropped. 

4. This final result, conforming to Field- 
Length and Decimal-Positions specifica- 
tions, is stored at the location 
assigned by the program to the Result- 
Field name. 



O 



Note: Since half-adjustment operates upon 
the digits to the right of the last posi- 
tion to be retained, it is meaningless to 
perform half-adjustment unless the calcu- 
lated arithmetic result has at least one 
more decimal position than is to be 
retained. Otherwise, the positions to be 
retained cannot be affected by the half- 
adjustment, since there cannot be a carry. 



Multiplication: 98.76 x 1 .234 = +121 .86984 
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NOTE: 1 . Shaded area corresponds to number of Decimal Positions (Col. 52) greater than size of result Field Length (Cols. 49-51) - 

which is not permitted. 

2. Heavy borders outline the combination of Field-Length and Decimal-Positions specifications that provide correct results, 
for various numbers of decimal places, and various legitimate Result-field sizes the user may wish to retain - 
based on the particular factors illustrated. 



Figure 31. Result Field Contents, after a Multiplication, for Different Field-length and 
Decimal- Positions Specifications 
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LEGEND: ♦ indicates point to the right of which digits are to be dropped 
before final result is stored in accordance with Decimal 
Positions specification in column 52. 
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Figure 32. Examples of Half-Adjustment 
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computation would be based on a value in 
the 6th position — a dummy position without 
a significant digit, which could never 
cause a carry-over tc the 5th decimal 
position. 



Figure 33 gives seme arbitrary exairples 
of entries in calculation fields — ignoring 
conditioning Indicators entries (cols. 7- 
17) . The entries in Resulting Indicators 
(cols. 54-59) in Figure 33 are discussed at 
the end of the next section. 
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Figure 33. Examples of Entries in Calculation Fields and in Result-Testing Fields 
(Resulting Indicators) 



Explanation of Calculation-Fields Entries 
in Figure 33 

Specif ic at ipn_ line 01 shews an operation 
(Zero and Add) that uses only Factor 2 with 
the Besult Field. It also illustrates 
defining a Result Field in a subsequent 
calculation specification (line 02) --eels. 
49-52 are clank in line 01. 

Line 02 shows the definition of a Result 
Field as ISTNET, six digits long, including 
two decimal places to be retained. 
Although the same Result Field was used in 
line 01, it is satisfactory to define it in 
a later line. (BONUS is presumed to be 
defined in the input specif icati ens or 
another calculation specification line.) 

Line 3 was inserted only to show that a 
Result Field may be defined more than once, 
provided that Field-Length and Decimal- 
Positicns entries are identical. (ADVANC 
is presumed to be defined in the input spe- 
cifications or another calculation specifi- 
cation line.) 

Iine_04 portrays an operation (Compare) 
that uses Factors 1 and 2, but dees not 
involve Result Field. (EXMPTN is presumed 
to be defined in the input specifications 



or another calculation specification line. 
GRSPAY is defined in line 09.) 



o 



Line 05 shows an operation 
involves only Result Field 
case, contains the name of 
field. Decimal Positions 
because TESTZ applies only 
data. The Result Field (D 
to be defined in the input 
or another calculation spe 
(If DTVSN did not appear i 
ifications, it could be de 
entry in Field Length. It 
have to appear also elsewh 
laticn specifications as R 
since TESTZ does not produ 
field.) 



(Test Zone) that 
which, in this 
the source-data 
must be blank, 
to alphameric 
IVSN) is presumed 

specifications 
cification line, 
n the input spec- 
fined here by an 
would, however, 
ere in the calcu- 
esult Field, 
ce any result 



Line 06 shows a Move instruction, which 
uses only Factor 2 and Result Field. The 
Move is to an alphameric field, because 
Decimal Positions (ccl. 52) is blank. 
Field Length is 24 positions, which 
reguires definition of the field as alpha- 
meric: numeric fields are limited to 15 
digits. (IDENT is presumed to be defined 
in the input specifications or another cal- 
culation specification line.) 



114 System/36C tfodel 20 CPS Report Ercgram Generator 



o 



line 07 shows a Move of a numeric literal 
to a Result Field named INDEX, defined as 5 
digits long including 2 decimal places. 
After the Move, INDEX represents 100. 00: 
the Move operation itself dees net perform 
decimal alignment. 

Line C8 shows a Result Field (FIELEC) 
defined fcr the maximum length (15) per- 
mitted for numeric data. Two decimal 
places are to fce retained; the secend deci- 
mal position is tc be rounded (H in ccl. 
53) before the excess decimal positions 
are dropped. (FIELDA and FIELEE are 
assumed tc be defined elsewhere.) 

Li n e 9 defines GRSPAY as six digits long, 
numeric, with two decimal places. This 
field is used as Factor 1 in line C4. 
(DNRALW is assumed to be defined 
elsewhere. ) 

Lin e 1 shows an operation code (SETON) 
that utilizes neither Factor nor Result- 
Field entries. 

Line 1 1 specifies that a table of employee 
numbers (TABEMP) is to be searched for the 
number matching that stored for the field 
name EMPLNO. if and when a match is found, 
the corresponding pay-rate entry in the 
table TAEPAY is to be made available fcr 
processing. 



TESTING THE RESULTS CF CALCULATIONS 
(CCLS.. 54-59) 

Entries in the Resulting- Indicators fields 
of the calculation specifications designate 
indicators that are to be set en or off, 
based on results of calculation operations 
cr on direct indicator-setting instruc- 
tions. The status of these indicators may 
be used tc condition the execution of cal- 
culation and/or output specifications. The 
Resulting-Indicators fields are used . in 
five ways: 






1. To reflect the status cf the result of 
an arithmetic operation involving addi- 
tion, subtraction, multiplication, or 
division (or Move Remainder) . 

If the resu lt is . . . the_in dica tor (if 

any) assigned 
t o . . . turns 
Jor_re mains} on 

Positive (excluding 0) — Plus (cols. 54- 

55) 
Negative — Minus (cols. 

56-57) 
Zero (including 0) — Zero or Elank 

(eels. 58-59) 

The indicators (if any) assigned to 
the conditions that do not apply, 



remain (or turn) off. If the same 
indicator is assigned to more than one 
cf the three alternative Resulting- 
Indicators criteria, it turns on if the 
result satisfies one of these criteria. 



The setting cf the indicators cor- 
responds to the final result--af ter 
half-adjustment (if H is specified in 
ccl. 53) , and after dropping cf any 
excess decimal places (per Decimal- 
Positions entry in col. 52). A final 
all-zero result, although signed as 
plus, causes only the indicator in 
Zero-or-Blank (cols. 58-59) to turn on. 



For exam 
If the c 
and 1 is 
tiens (c 
ad justme 
is +0.0 
This tur 
assigned 
assigned 
the valu 
ping of 
and is s 
result. 



pie : 

alculated result is -0.099 

specified in Decimal Posi- 
ol. 52), without half- 
nt, then the final result 

ns on any indicator 
tc Zero-cr-Blank — not one 
to Minus or Plus, although 
e was negative before drop- 
excess deciiral positions, 
igned plus for the final 



If H is also specified (in ccl. 
53), then the final result is -0.1 
This turns on any indicator 
assigned to Minus. 

A Resulting Indicator assigned to 
Plus (cols. 54-55) or Minus (cols. 56- 
57) is eff at the beginning of program 
execution. Each time the calculation 
specifications in the line have been 
executed, the status of the indicator-- 
on or off--is revised to reflect the 
result of the calculation. 

A Resulting Indicator 1-99 assigned 
to Zerc-or-Blank — in specification 
lines involving these arithmetic 
operations — is on at the beginning of 
program execution. Its status is then 
revised, to reflect the result of the 
calculation, each time the calculation 
specifications in the line have been 
executed. If the Result Field is also 
an output field, any indicator assigned 
tc Zeio-or-Blank is also turned on (and 
the field is cleared) immediately when 
that output field is transferred to the 
output area for printing, punching, or 
interpreting if Blank-After (B in col. 
39) is specified for the field in the 
relevant output-format specifications. 
If Elank-After turns on a Resulting 
Indicator assigned to Zero-or-Elank, 
this dees not turn off an indicator 
assigned to Plus or Minus in the same 
line. 
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If different indicators are assigned 
to Zerc-cr-Blank for the same field in 
several specification lines — as calcu- 
lation Resulting Indicator and/or input 
Field Indicator—only the earliest- 
appearing Zero-or-Elank indicator for 
the field is turned on by the Blank- 
After instruction. 

To reflect the result cf a comparison 
between two fields (see COMP operation, 
below) . 



If bhe_indicator ( if 

any J ass igned 

i £-.±>. •._ i I? £R§ ( 2. L 

remains ) en 

Factor 1 > Factor 2 — High (eels. 54-55) 
Factcr 1 < Factor 2--Lcw (cols. 56-57) 
Factor 1 = Factor 2--Egual (cols. 58-59) 

The indicators (if any) assigned to 
conditions that do net apply, remain 
(or turn) off. If the same indicator 
is assigned to more than one cf the 
three alternative Resulting-Indicators 
criteria, it turns on if the result 
satisfies cne of these criteria. 

Resulting Indicators assigned to 
Compare operations are off at the 
beginning cf program execution. Each 
time the Compare operation has been 
executed, the status of these 
indicators — en or off — is revised to 
reflect the result of the comparison. 

3. To identify the zone in the high-crder 
positicn cf an alphameric field. For 
the specifics, see TESTZ operation, 
below. However, in simplified (incom- 
plete) terms: 

If the high-order the indicator ( if 

position any) assigned 

co ntains . . . i c__.._ ,__tu rn s (or 

remains,) en 



A 12-punch 
An 1 1-punch 
Neither a 12- 
nor 1 1-punch 



Plus (eels. 54-55) 
Minus (eels. 56-57) 

Blank (cols. 58-5S) 



The indicators (if any) assigned to 
conditions that do net apply, remain 
(or turn) off. If the same indicator 
is assigned to more than one of the 
three alternative Resulting-Indicators 
criteria, it turns on if the test 
satisfies cne cf these criteria. 

A Resulting Indicator 1-99 assigned 
to Zero-or-Blank — in TISTZ specifica- 
tion lines — is on at the beginning of 
program execution. Its status is then 
revised, to reflect the result, each 
time the calculation specifications in 



the line have been executed. If the 
Result Field is also an output field, 
any indicator assigned to Zero-or-Blank 
is also turned on (and the field is 
cleared) immediately when that output 
field is transferred to the output area 
for printing, punching, or interpreting 
if Blank-After (E in col. 39) is speci- 
fied for the field in the relevant 
output-format specifications. If 
Elank-After turns on a Resulting Indi- 
cator assigned to Zerc-cr-Blank, this 
does not turn off an indicator assigned 
to Plus or Minus in the same line. 

If different indicators are assigned 
to Zero-or-Blank for the same field in 
several specifications lines — as calcu- 
lation Resulting Indicator and/or input 
Field Indica tor--only the earliest- 
appearing Zero-or-Blank indicator for 
the field is turned on by the Elank- 
After instruction. 

In a table look-up operation: 

a. To define whether search is to be 
for a table argument that matches 
the search argument, or for the 
nearest higher (or lower) --but 
unegual--table argument, or for 
either ; 

b. After the search, to reflect the 
type of match (if any) between 
table and search arguments. 

The indicator that reflects the 
type of match achieved (High, Low, 
or Egual) turns (or remains) on; 
any indicator assigned to the other 
condition turns (cr remains) off. 

If indicators are assigned both to 
Egual, and to High or to Low, Egual 
takes precedence when an exact match 
between table and search argument 
exists: the egual value is then 
selected, and the indicator assigned to 
Egual turns on. If the same Resulting 
Indicator is assigned to two conditions 

(High and Egual, or Low and Egual) , the 
indicator turns on if either assigned 
criterion is satisfied. An indicator 
must be assigned to at least one of the 
three Resulting-Indicators fields 

(High, Low, or Egual). However, if the 
table arguments are net in sequence by 
search argument (ascending or descend- 
ing) , an indicator should only be 
assigned to Egual (cols. 58-59) . 

For specifics, see LCKUP operation, 
below. 

Note: A Blank-After instruction in the 
output-format specifications has no 
effect on the Result Field or on an 



o 



o 
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indicator assigned to Equal for a LOKUP 
operation. 

5. To cause designated indicators to turn 
on or off by the operation code SETON 
or SETOF, respectively. See SETON and 
SETOF operations, below. 

P oints to Note for Calculation- Sp ecif ica- 
tions Resulting Indicator s 

1 . Any indicators may be assigned in 
cols. 54-59. 

If indicators other than 01-99, H1 , 
or H2 are used, the programmer must be 
conversant with the contents of the 
sections P rogram Logic Flow and 
Indicators. 



2. 



KJ 



If indicator H 
the program will 
of the card has b 
that indicator ha 
again before then 
tion specificatio 
restarted after a 
pressing the CPD 
H1 and H2 indicat 
the program. 



1 or H2 is turned on, 
halt after processing 
een completed, unless 
s been turned off 

by another calcula- 
n. If the program is 
n H1 or H2 halt (by 
START key twice) , the 
ors are turned off by 



Indicators 01-99 (and H1, H2 within the 
limits mentioned above) change status 
(on or off) only when a specification 
has been executed where the particular 
indicator is assigned as Resulting 
Indicator or Field Indicator. (Excep- 
tion: Zero-or-Blank indicator in con- 
junction with Blank-After instruction 
in output specifications — already dis- 
cussed in this section and under P ro- 
gram Logic Flow.) Therefore: 



o 



a. If the calculation specification is 
only executed for some cards {i.e., 
there are conditioning Indicators 
entries in cols. 7-17), the Result- 
ing Indicators in that line may 
remain on or off from a previous 
card. 

b. More than one calculation-specifi- 
cations Resulting Indicator can be 
on at the same time. 

c. If the same indicator is assigned 
as a Resulting Indicator in several 
calculation specifications, its 
status will be revised after each 
such specification has been 
executed. 

d. If a calculation Resulting Indica- 
tor is also assigned as an input- 
specification Resulting Indicator 



or Field Indicator, its status is 
affected: card-type Resulting 
Indicators turn off when a new card 
has been read, and the one for the 
new card turns on before total-time 
calculations; Field Indicators 
change status before detail-time 
calculations. Both take priority 
over calculation Resulting Indica- 
tors (see RPG Program Logic , Indi- 
cators and Indicator Hierarchy ) . 



e. The same indicator ma 
as a calculation Resu 
tor and as a conditio 
(Indicators, cols. 7- 
same specification li 
of the line is then c 
the status of the ind 
by a prior operation 
have been the previou 
specifications in the 
performed) . 



y be employed 
lting Indica- 
ning indicator 
17) in the 
ne. Execution 
ontingent upon 
icator as set 
(which could 
s time the 
line were 



3. Although results of arithmetic opera- 
tions are always signed, a result value 
of zero — which carries the equivalent 
of a plus sign — turns on the Resulting 
Indicator assigned to Zero (cols. 58- 
59) , not Plus. 

The value in the Result Field of an 
arithmetic operation in this RPG will 
never be -0 (minus zero) . 

Figure 33, previously used to illustrate 
some calculation-field entries, also 
depicts the assignment of calculation 
Resulting Indicators of all of the five 
types: 

Line 1: Indicator H1 turns on if, after 
GRSPAY has been placed in the Result Field, 
the Result Field (named FSTNET) is nega- 
tive. Otherwise, it remains (or turns) 
off. 

Line 04: Indicator 25 turns on, after the 
contents of GRSPAY have been compared with 
the contents of EXMPTN, if the former was 
found to be greater than the latter (Factor 

1 > Factor 2) . Otherwise it remains (or 
turns) off. 

Line 5: The zone in the high-order posi- 
tion of a field named BIVSN is tested. If 
it is equivalent to an 11-punch, indicator 

02 turns (or remains) on; otherwise, indi- 
cator 02 remains (or turns) off, and indi- 
cator 01 turns (or remains) on. 

L ine 1Q demonstrates how three indicators 

(e.g.: 10, 15, 16) can be set on by means 
of the operation SETON. 
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TYPE OF 
OPERATION 




Columns 54-55 


Columns 56-57 


Columns 58-59 


PLUS 


HIGH 


MINUS 


LOW 


ZERO OR 
BLANK 


EQUAL 


Arithmetic 
Operations 
(except compare) 


If the 

Result Field 
contains a: 


Positive 
value 

(except o) 





Negative 

value 

(there is no 0) 





Zero value 

(6) 





Compare 
(COMP) 


If the 

contents of 
Factor 1 
are: 





Higher in sequence 
(if alphameric) or 
algebraically greater 
in value (if numeric) 
than contents of 
Factor 2 





Lower in sequence 
(if alphameric) or 
algebraically smaller 
in value (if numeric) 
than contents of 
Factor 2 


— 


Equal in sequence 
(if alphameric) or in 
value (if numeric) 
to contents of 
Factor 2 


Table 
Look -Up 
(LOKUP) 


If the table 
argument 
(Factor 2) 
is: 





The nearest value 
higher than the 
search argument 
(Factor 1) 





The nearest value 
lower than the 
search argument 
(Factor 1) 


— 


Equal to the 
search argument 
(Factor 1) 



o 



Figure 34. Summary of Conditions that Cause Calculation Resulting Indicators to Turn ON 
— in Arithmetic, Compare, and Table Look-up Operations 



Line 11 specifies a table look-up operation 
(LOKUP) . The entry of an indicator code 
(02) in "Equal" (Cols. 58-59) instructs the 
program to search the argument table for a 
value that exactly matches the contents of 
the field EMPLNO. If and when such a match 
is found, indicator 02 turns on. 



Figure 34 is a summary of conditions — in 
arithmetic, compare, and table look-up 
operations—that cause Resulting Indicators 
assigned in cols. 54-59 to turn on. 



Comments (Cols. 60-74 ) 

The user may enter here any information he 
would like printed out, next to the other 
entries in the line, at object program 
generation time. Apart from this printout, 
the data is ignored by the program. 



ENTRIES IN THE OPERATION FIELD 
(COLS. 28-32) 



The code for the operation to be performed 
is entered left- justified (i.e., beginning 
in col. 28) . Figure 35 itemizes, and 
briefly describes, the operations that can 
be performed, together with the correspond- 
ing mnemonic codes that are to be entered 
in cols. 28-32. The operations are grouped 
in Figure 35 by type. They are discussed 
by group, because some aspects of opera- 
tions are unique to a type. For a more 
detailed survey of calculation operations, 
see Figure G1. 



Figure 36 portrays graphically the 
calculation-specifications fields that 
apply to each operation code. The figure 
is repeated in Appendix G, as figure G2, 
for convenient reference. 



o 
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Hove 
Operations 



o 



Type cf Cperation 

Arithmetic 
Operations 



— 4 



Compare and Zone-Testing 
Operations 



Branching within RPG and 
to external B.A.L 
Routines 



Operation 

Add Factor 2 to Factor 1 

Clear Result Field and add Factor 2 

Subtract Factor 2 from Factor 1 



i 1 

Operation 
Code 
(Cols. 28-32) 






Clear Result Field and subtract Factor 2 



Multiply Factor 1 by Factor 2 



Divide Factcr 1 by Factor 2 



Move remainder of preceding division to a 
Result Field 

Move Factor 2 into Result Field, right- 
justified 



Move Factor 2 into Result Field, left- justified 



Move Zone from lcw-crder position of Factcr 2 
to lcw-crder position of Result Field 



Move Zone from high-order position of alphamer- 
ic Factcr 2 to high-order position of alphamer- 
ic Result Field 



Move Zone from low-order position of Factor 2 
tc high-order position of alphameric Result 
Field 



j. 



Move Zone from high-order position of alphamer- 
ic Factor 2 to low-order position of Result 
Field 



Compare Factor 1 to Factcr 2 



Identify the zone in the high-crder position cf 
an alphameric Result Field 

Setting Indicators 



Set cne, two, or three specific indicators on 
Set one, twc r or three specific indicators cff 



GOTO 



Eranch tc another RPG calculation specification! 
line 



Identify the name in Factcr 1 as a destination 
label to which GOTO may branch 

Eranch to an external B.A.L. routine 



Identify the name in Result Field as a field or 
Indicator tc be referenced in the external 
E.A.I. routine 



ADD 
Z-ADD 



SUB 
Z-SUE 

H 



MULT 
DIV 



MVR 



MOVE. 



MOVEL 



MLLZO 



MHHZO 



MIHZO 



MHLZO 



CCMP 
TESTZ 



SETON 
SETOF 



TAG 



EXIT 
RLABL 



j. + 

|Table Lcck-up Operations! Table Look-up 



LOKUP 



-H 






Figure 35. Calculation Operations 
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L«9*nd, 
* NOTE : 



Entri) Rc^uif«dL)Max Length 



tntri) Optional JoP Entrij 



(A) ■ Alphameric 

(N) * Numeric 

(fl/N)» AorN 

(R-N)« Either, bvt both same 



I Resulting Indicator* not related to column 
head'uMjs; at least one required; •-»• 



Resulting 1 
rndicatorsj 



Zero/ 
Plus Minus Blonk 



Plus/ 
High 

At least one rea^uircd-^orj-a 
— «-Oplionol 



Minusf Blank/ 
Low Equal 

D-oo oa-o 



The entries designated as required in Field Length, and Decimal Positions are necessary only if the 
associatea Result Field is not aefined. elsewhere. 



o 



o 



Figure 36. Fields Pertinent to Each Operation Code 



Explanation. of S ymbo ls Used in Figure_36 

A solid straight line indicates that an 
entry is reguired in that field. A dotted 
straight line indicates that an entry in 
the field is optional. 

In the Eesulting-Indicators fields: 

A straight dotted line signifies 
optional entries to which the headings 
Plus, Minus, and Zerc/Elank apply. 

A line connecting rectangles 
( Q-O-O ) signifies that an entry is 
reguired in at least cne of the three 
fields, and that the headings High, 
Low, and Egual — or Plus, Minus and 
Blank--apply . 



A line connecting circles (O— O-O) 
signifies that an entry is reguired in 
at least one of the three fields, but 
that the column headings are not 
pertinent. 

Absence of any line, dots, or sym- 
bols signifies that an entry is not 
permitted in that field with that 
operation code. 

The length of the line always repre- 
sents the maximum entry. (It is to be 
understood that, where the line extends 
through all ten positions in Factor, 
this refers to the maximum size of a 
literal, but field names are limited to 
six characters.) Entries shown as 
reguired in Field length and Decimal 
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Positions are necessary only if the 
associated Result Field is net defined 
elsewhere (see Result_Field, cols. 43- 
48, above) . 



All calcu 


executed 


at 
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ente 


executed 


at 


cols. 7- 


6) . 


culation 
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bypassed- 


-de 


tors) in 


the 


entered- 


-exc 


operatic 


n, b 



laticn specifications to be 
detail time (eels. 7-8 blank) 
red ahead of all those to te 
total time (L-indicator in 

Within this grouping, the cal- 
ratiens are executed (cr 
pending en cenditicning indica- 

seguence in which they are 
ept when branching (see GOTO 
elew) . 



Note: 

1. Whenever a field that was defined in 
the input specifications as packed (P 
in col., 43) is involved in an opera- 
tion, its length must be considered 
tantamount to a standard (unpacked) 
numeric input field with the same digit 
capacity. The general formula is: 
field length in calculation specifica- 
tions = 2n-1, where n = length of 
packed field in input specifications. 

2. All data is output in true fcrm-- 
ccmplements for negative values are not 
a consideration. 

Arit hmet ic Operations 

General Feints Applicable to Arithmetic 
Operations 

1. All source-data and result fields and 
all literals involved must be defined 
as numeric. 

2. The program performs automatic decimal 
alignment cf factors and results. 
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time a 
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n if the 
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position (or 
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C) ; the 
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RPG. 



If the field is thereafter punched 
or printed without editing, zero- 
suppression, or first removing the zone 
by a calculation specification (see 
MHLZO or MLLZO, below) , a zone occurs 
ever the digit in the lew-order posi- 
tion, as follows: 

11-punch if field contents are 

negative ; 

12-punch if field contents are 

positive or zero. 



Similarly, if the low-order position 
of such field is later moved into an 
alphameric field, the sign may move 
with it (see MOVE or MOVEL instruction, 
below) . If that position in the new 
field is then tested fcr zenes (see 
TESTZ, below) , a positive or zero value 
will yield Plus (indicator in cols. 
54-55) . 



The program performs arithmetic opera- 
tions, and signs the results, in accor- 
dance with the algebraic laws of signs 
— see Figure 37. 



o 
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CP. CODE 

I 4 



+ 



I— 



ADD 






Z-ADD 



j. 



SOB 



+ 



Z-SUB 



MULT 



DIV 



MVR 



SIGN IN 
FACTOR 1 









h- 



SIGN IN | 
FACTOR 2 | 
. + . 



SIGN OF 
RESULT FIELD* 



| SIGN OF 

| REMAINDER* 

+ 



+ I + I 

I " I 

| Sign cf larger absolute value | 



+ | Sign of larqer absolute value 

+ I + 

4 



+ | - if Factor 2 > Factor 1; otherwise + | 



|- if (Factor 1| > |Factor 2| ; otherwise +| 
I + I 

+ | - | 






~+ 






I 






j.. 






I 
-+ 

I 
-+ 



♦Note: Excluding a Result of zero. 

A result of zero is always signed plus. 

Legend: | J represents "absolute value of" 

Figure 37. Signs in Arithmetic Operations 






o 



5. All arithmetic-operation source fields 
must contain valid digits: Considering 
an input field before it is packed by 
the program, the character in each 
column must be represented in rows 0-9 
of the EECDIC table (Appendix D, Figure 
D1) . For packed input data, the equi- 
valent valid EBCDIC characters were 
described under Packed (col. 43) , in 
IH£U t_Sp ec if ic at ic n s . 



Any characters that do not represent 
digits (or, digit plus sign in the low- 
order position) cause an abortive pro- 
gram stop. 



6. The Factors and Result Field in an 

arithmetic operation may each involve 
the same or different field names. 
(E.g.: A + B = C, or A + C = C, or C 
+ E " = C , or C + C = C ', or A + A = C, 
or B + E = C. ) 
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7. The execution of any arithmetic opera- 
tion may be made contingent on the sta- 
tus of conditioning indicators speci- 
fied in Control Level (cols. 7-8) and/ 
or in Indicators (cols. S-17). 



8. Resulting Indicators may be assigned to 
Plus, Minus, and/or Zero-or-Blank 
(cols. 54-59) to test the result of any 
arithmetic operation. 

9. With one exception (DIV, when followed 
by MVR) , the result of any arithmetic 
operation can be half-adjusted (H in 
col. 53) . 

10. Fields that provide only source data — 
as contrasted with receiving result 
data — for an arithmetic operation are 
not changed in any way (including sign 
status) by the operation. Even in the 
multiplication and division operations/ 
the original values of Factor 1 and 
Factor 2 are preserved (unless the same 
field name is used for the Result 
Field) . 

11. The Result Field must be defined in the 
same, or another, calculation specifi- 
cation line, or it must have been 
defined in the input specifications. 

12. When the Result Field is used as a Fac- 
tor, the user must make sure that the 
Result Field is large enough to accom- 
modate the new product. If the length 
of the Result Field is intentionally 
specified too small (warning message 
RG117 - Result Field may not be large 
enough - is printed) , and this length 
is specified as an even number (in the 
unpacked format) , the user must know 
the digit in the high-order position of 
the Result Field, since otherwise the 
digit is lost. 

Relationship Between Size of Factors and 
Results (See also Figures 31 and 32) . 

Source-data fields and result fields are 
limited to a maximum length of 15 posi- 
tions; i.e., 15 digits plus sign. (Intern- 
ally, in the CPU, this represents 8 bytes.) 

However, the immediate (temporary) 
result of an arithmetic operation (in a 
work area assigned by the program) — before 
it is moved by the program to the Result- 
Field area — may be as large as can be pro- 
duced by the source-data fields and the 
operation. This presupposes that the ini- 
tial result contains enough decimal places 
to drop — and that the Decimal-Positions 
entry (col. 52) specifies the appropriately 
reduced number of decimal places — so that 
the retained number of digit positions does 
not exceed 15. 



If the result positions to the left 
the decimal point, together with the n 
cf decimal places to be retained (per 
52), exceed the Result-Field Length sp 
fied (cols. 49-51) — which must not be 
greater than 15--a corresponding numbe 
high-order positions is dropped before 
transfer to the Result-Field location, 
the status of any Resulting Indicators 
assigned reflects the truncated final 
result. If the Decimal-Positions spec 
cation is greater than the actual numb 
decimal places that result from the op 
tion, an appropriate number of zeros i 
appended at the right and the number o 
high-order positions is reduced accord 
ly , to remain within the Field Length 
specified. 



of 
umber 
col. 
eci- 

r of 

and 



if i- 
er of 
era- 

s 
f 
ing- 



Mote: In the operations ADD, SUE, Z-AED 
and Z-SUB, arithmetic overflow may cause a 
Resulting Indicator assigned to a different 
result status (+ , -, or 0) to be turned on 
for that specification line, or cause all 
the indicators to be turned off. The con- 
ditions to which this can apply are those 
listed as reguiring only six bytes (or 18, 
in the case of Z-SOB) of core storage under 
Procesging_gf^Cfeject_ Program , Calcul at io n 
Specifications, in Appendix A. 



During program execution, no indication 
of arithmetic overflow is given. (See Pro- 
gramming^, Tips for a technique to accomplish 
the equivalent, for result-field-length 
specifications of less than 15.) During 
program generation, a warning message 

("Result field may not be large enough") is 
printed if the size of the multiplication 
or division factors involved could theoret- 
ically cause the result, after proper deci- 
mal alignment, to exceed the length speci- 
fied for Result Field. The same message is 
printed if a Factor field in an addition or 
subtraction operation exceeds the Result 
Field size, after decimal alignment. 

(Note: This message is not provided for 
the MVR operation.) Often, by familiarity 
with the particular data involved, the user 
will know that a result field smaller than 
the theoretical maximum suffices. 

Guarding against exceeding result-field 
capacity is based on the rules of algebra: 

1. Addition and Subtraction 

The maximum number of significant 
digits that can result from the opera- 
tion is equal to the number of: 



decimal places 
+ places to the 
left of the 
decimal point 
+ 1 



each from the 
factor with the 
greater number of 
such places 
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For example: 

Factor 1: + 9994567898642.06 

-(SUB) Factor 2: - 5680 975 310.2579 1 

= + 10000248873952. 31791 

Such an operation is legitimate, 
although the initial result exceeds 15 
positions — provided the Result-Field- 
Length (cols. 49-51) and Decimal- 
Positions (col. 52) specifications have 
the proper relationship , and the 
Eesult-Field-Length specification is 
not greater than 15. for instance: 



| Specified 
h 



, -I 




Deci-| 


Result- 


mal | 


Field 


Posi- | 


Length 


tionsl 

L _L 


,„ „. , 


T 


15 


1 I 


15 


. | 


14 


I 


15 


2 I 


12 


I 


15 


6 I 



final Result-Field contents 

H 



+10000248873952.3 

+010000248873952 

+10000248873952 

+0000248873952.31 

+000248873952 

+248873952.3179 10 






OK 
OK 
OK 

high- 
order 
digits 
truncated 



The preceding example illustrates 
that any number of decimal places may 
be dropped (by appropriate Decimal- 
Positions entry in col. 52) to fit the 
result within the specified Result- 
Field Length (cols. 49-51) — which must 
not exceed 15. If the specified 
Result-Field Length is then greater 
than the retained positions, the signi- 
ficant digits are preceded in the 
Besult Field by an appropriate number 
of leading zeros. If the specified 
Result -Field Length is too small to 
accommodate the retained positions — 
even if no decimal places are retained 
(0 in col. 52) — a corresponding number 
of the most-significant positions is 
lost. The last entry shows that, if 
the number of Decimal Positions speci- 
fied exceeds the significant ones that 
can result from the operation, an 
appropriate number of zeros is appended 
at the right and a corresponding number 
of high-order positions truncated. 

2. Multiplication 

The maximum number of significant 
digits (including decimal places) that 
can result from the operation is equal 
to the sum of the number of positions 
in the two factors. 



The resulting number of positions 
always includes a number of decimal 
places equal to the sum of the number 
of decimal places in the two factors. 
For example: 



Factor 1 : 



x (MULT) 



-9876418.34255073 



Factor 2: + 1234^68951027 324 

= -TIT9 4310^26. 6076 0552176086 14652 

i.e., 15 places x 15 places can result 
in 30 places, and 8 decimal places x 11 
decimal places always results in 19 
decimal places. The total of 30 
places, minus 19 decimal places, equals 
11 non-decimal places. 

Thus, in this example, any Eesult- 
Field-Length specification from 11 to 
15, with associated Decimal-Positions 
specification from to 4, respective- 
ly, prevents loss of any high- order 
position in the result field. For 
instance: 



ISpecified 



I 



Result- 
Field 
Length 



15 
15 
12 
12 
11 
11 
15 



— + — - +- 



Deci- 
mal 
Posi- 
tions 



final Result-Field contents 



-12194310126.6076 

-0012194310126.60 

-12194310126.6 

-012194310126 

-12194310126 

-2194310126.6 

-194310126.607605 



OK 
OK 
OK 
OK 
OK 

high- 
order 
digits 
truncated 



The following formula can be used to 
determine whether leftmost positions 
will be truncated: 

L, - D. + L 2 - D 2 + Dr = Lr where 



Lr = 



L x = 
D x = 

L 2 = 
D 2 = 

Dr = 



Result- Field Length specified 
(cols. 49-51) £ 15 
length of Factor 1 
number of decimal places in 
Factor 1 

length of Factor 2 
number of decimal places in 
Factor 2 

number of decimal places specified 
(col. 52) to be retained in the 
result field (product) 



If Lr turns out to be greater than 
the specified (cols. 49-51) Result- 
Field Length: 



O 
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a. Either Lr must be increased (but it c. It must be known, from the nature 
must not exceed 15); and/or of the data, that the product will 

contain appropriately fewer signi- 
ficant high-order digits than the 

b. Dr must be reduced (tut it cannot theoretical maximum, 
be negative) ; and/or 



o 
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c 







\J 



3. 



o 



If ncne of the above three techni- 
ques can be employed tc satisfy the 
equation, the multiplication cannot be 
performed in its present fcrm. 
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Factor 1: 
Factor 2: 
Product 



135.9 

x 85^2 

= + 11578.61 



If Lr = 4 and Dr = (0 
Positions, col. 52) , the R 
would contain 1578 — a loss 
significant digit. If a E 
greater than 4 positions c 
for seme reason (say, room 
— and, of course, the illu 
similarly applicable where 
therefore cannot be increa 
definition cf number of de 
in the Factors can be chan 



in Decimal 
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of the most- 
esult Field 
annot be used 
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13.59 
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+ 1157.8 61 
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Division 



Decimal Pos iti ons. The number of deci- 
mal places in the result (quotient) of 
a division equals the number of decimal 
places in the dividend less these in 
the divisor. The SPG program pads 
either the dividend cr the divisor with 
additional zercs at the right, if this 
is necessary to yield the number of 
decimal places specified in col. 52 
(Decimal Positions) --which cannot be 



negative. If half-adjustment is speci- 
fied (H in col. 53), the program auto- 
matically modifies padding to yield one 
extra decimal position (which is 
dropped again after half-adjustment) . 



Two examples: 

1. Half-adjustment not specified: If 
the dividend is 123.643 (3 decimal 
places), and the divisor is 1.41 (2 
decimal places) , the guotient con- 
tains 1 decimal place (3-2). 



2. 
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gram adj 
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n col. 52, 

dividend 
but adjusts 
now, 3 - 3 = 



Half-adjustment specified (H in 
col. 53): If the dividend is 
579321 (0 decimal places) , and the 
divisor is .46 (2 decimal places), 
the number of decimal places in the 
result would be negative (0 decimal 
places in dividend - 2 in divisor - 

1 for half-adjust) , which is not 
possible. A minimum of three 0s 
must therefore be added to the 
dividend by the program. 

If col. 52 specifies decimal 
places for the result, the program 
adjusts the dividend to 579321.000: 

2 decimal places in the dividend + 
1 extra dividend place for half- 
adjustment of guotient - 2 decimal 
places in the divisor = 1 decimal 
place in the initial result. After 
half-adjustment, no decimal place 
is retained. 

If 3 is specified in col. 52, 
the program adjusts the dividend to 
579321 .000CCC: 5 decimal places in 
the dividend + 1 extra dividend 
place for half-adjustment of quo- 
tient - 2 decimal places in the 
divisor = 4 decimal places in the 
initial result. After half- 
adjustment, 3 decimal places are 
retained . 

Expressed by formulas: 

1. Without half-adjustment 
specified . 

A + Di - D 2 = Dr (0 < Dr < 9) , 
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where 
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E 2 
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If the eguation is satisfied 
with A = 0, the dividend and 
divisor as stored (under their 
field names or as literals) fit 
the result reguirements. 



If A > 0, the 
program pads 
the dividend 

If A < 0, the 
program pads 
the divisor 



with a number 
of zeros, in 
decinal posi- 
tions at the 
right, cor- 
responding to 
the absolute 
value cf A. 



With half-adjustment (rounding) 
specified (H in col. 53) 



A + 
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Di - D 2 = Er + 1 (0 < Dr < 
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Size Restrictions. The rules pertaining to 
decimal positions in divisicn are defined 
above. In addition, total Factor and 
Result-Field sizes are limited to a maximum 
of 1 5 positions each, including any zeros 
appended by the program when padding (see 
above) . 

Expressed as eguaticns related to the 
decimal-places formulas above: 

Li + A (if A > 0) < 15, 

where 



Li = unpadded (original) length of Factor 1 
(dividend) 

L 2 + | A I (if A < 0) < 15, 

where 

L 2 = unpadded (original) length of Factor 2 
(divisor) 

Alternatively, considered independently 
of the previous formulas, and before 
padding by the program, factor sizes and 
number of decimal positions must satisfy 
both of the following two equations for the 
division operation to be executed: 

l>2 + Di " E>2 - Dr < 15, and 
L ± - D x + D 2 + Dr + H < 15, 



o 



where 
U 



length of Factor 1 (dividend) : < 15 

number of decimal positions in Factor 

1: < 9 
L 2 = length of Factor 2 (divisor) : < 15 
D 2 = number of decimal positions in Factor 

2: < 9 
Dr = number of decimal places specified for 

result (guotient) : < 9 
H = 0, if half-adjustment not specified 
= 1, if half-adjustment specified (H in 

col. 53) 

Size of. Quotient (Result) . Assuming that 

the divisor field always contains a signi- 
ficant digit in its highest-order position, 
the guotient contains a number of positions 
equal to the size of the dividend plus 1, 
less the size of the divisor, and less 1 if 
half-adjustment (rounding) is specified. 
Dividend and divisor sizes refer to padded 
factors (see above) . 

If the divisor field always contains a 
significant digit in the highest-order 
position, the formula is: 

tr = 1 + F1p - F2p - H, 

where 

Lr = minimum length of Result Field 

reguired to acccmmodate guotient 
(after half-adjustment, if any) 

F1p= length of Factor-1 (dividend) field, 
after padding (if any) 

F2p= length of Factor-2 (divisor) field, 
after padding (if any) 

H = 0, if half-adjustment not specified 
= 1 , if half-adjustment specified (H in 
ccl. 53) 

If the position of the highest-order 
significant digit in the divisor field may 
vary, the result-field must be larger to 
accommodate all totals. The result-field 
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length must be increased by a number equal 
to the maximum number cf leading zercs in 
the divisor field. 



Size of Beroainder. The remainder (which 
can be salvaged by an MVB cperaticn--see 
below) contains a number of positions equal 
to the length cf the diviscr, after padding 
(if any) . Its number of decimal places is 
equal to that in the dividend, after pad- 
ding (if any) . 



Effects cf Each Operation Code 



o 



ADD (Add) 



The contents of the field in Factor 2 cr 
the literal entered in Factor 2 is added, 
algebraically, to the literal or the con- 
tents of the field in Factor 1. The result 
cf this addition is placed into the result 
field specified in cols. 43-48, and 
replaces any previous data in the result 
field. Any excess positions in the result 
field are set to zero. 

Factor 1 (say. A), Factcr 2 (say, B) , 
and the Result Field (say, C) may all be 
different fields: A + B = C. 

Factor 1 cr Factor 2 may be the same 
field (i.e., have the same field came) as 
the Result Field. The value of the con- 
tents of the result field is then 
increased, algebraically, by the value 
represented by Factor 1 or Factcr 2, res- 
pectively: operation A + C = C 1 orC+B= 
C" . 

Factor 1 and Factor 2 may be the same 
(i.e., have the same field name) , but may 
be different frcm Result Field. Twice the 
value of either Factcr then becomes the 
result: operation A + A = C = 2A. 



SUB (Subtract) 

The contents of the field in Factor 2 or 
the literal in Factor 2 is subtracted alge- 
braically from the literal cr the contents 
of the field in Factor 1. The result of 
this subtraction is placed into the speci- 
fied result field, and replaces any pre- 
vious data in the result field. Any excess 
positions in the result field are set to 
zero. 

Factor 1, Factor 2, and the Besult Field 
may all be different fields: A - B = C. 

Factor 1 may be the same field (i.e., 
have the same field name) as the Besult 
Field. The value in the result field is 
then reduced, algebraically, by the value 
in Factcr 2: operation C - B = C. 

Factor 2 may be the same field (i.e., 
have the same field name) as the Result 
Field. The new result-field value is then 
the negative of the original result-field 
value, increased algebraically by the value 
in Factor 1: operation A - C = C . 

Factor 1 and Factor 2 may be the same 
field (i.e., have the same field name), but 
may be different frcm Result Field . The 
result is then zero: operation A - A = C = 
+0. (However, see immediately below for a 
method of setting the result field to zero 
that is usually preferable.) 

Factor 1, Factor 2, and the Result Field 
may all be the same field (i.e., have the 
same field name) . This sets the result 
field to +0 (i.e., all zeros, signed plus): 
operation C - C = C = +0. 

Note: The operation C - C = C = +0 is 
recommended for clearing a numeric field; 
this method never consumes more core 
storage space, and cften uses less, than 
other methods (Z-ADD literal 0, or MOVE of 
Os or blanks, for instance). 



Factor 1, Factor 2, and the Besult Field Z-SUE (Zerc and Subtract) 
may all be the same field (i.e., have the 
same field name) . The absolute value of 
the contents of the result field is then 
doubled: operation C + C = C = 2C. 
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Z-ADD (Zero and Add) 

The result field is set to zero before the 
contents cf the field or the literal in 
Factor 2 is added algebraically into the 
cleared result field. Factor 1 must be 
left blank. 

If a literal of is entered in Factor 
2, Z-ADD, in effect, causes the result 
field to be cleared to plus zero. (How- 
ever, see SUB, below, for a preferred 
method.) 



The result field is set to zero before the 
contents of the field cr the literal in 
Factor 2 is subtracted, algebraically, into 
the cleared result field. This places the 
negative of the Factor-2 value in the 
result field. Factor 1 must be left blank. 

If a literal of is entered in Factor 
2, Z-SUB, in effect, causes the result 
field to be cleared to plus zero. (How- 
ever, see SUB, above, for a preferred 
method. ) 

Note: Although the result field is cleared 
before Factcr 2 is subtracted into it, the 
former contents of the result field are 
available as Factor 2 (i.e., -c = C is 
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feasible) . A Z-SUE operation with the same 
field name in Factor 2 as in the Result 
Field is the simplest way to reverse the 
sign of data. 

MULT (Multiply) 

The contents of the field or the literal in 
Factor 1 (multiplicand) is multiplied, 
algebraically, by the literal cr the 
contents cf the field in Factor 2 
(multiplier) . The product of this 
multiplication is placed in the result 
field specified in cols. 43-48, and 
replaces any previous data in the result 
field. Any excess positions in the result 
field are set to zero. 
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neral, execution time of a 
caticn operation is minimized if 
iplicand (Factor 1) has the smaller 
sum-of-digits values (crossfoot sum 
igits) . Unless knowledge cf 
ar values involved in the factors 
s otherwise, the smaller field may 
ed tc contain the smaller average 
igits value, and should therefcre 
ned as the multiplicand (Factor 1) . 



Examples cf sum-of-digits values: 

Factor = 12348--sum of digits = 18 
Factor = C.92 --sum of digits = 11 



Factor 1, Factor 2, and the Result Field 
may all he different fields: A x E = C. 

Factor 1 or Factor 2 may be the same 
field (i.e., have the same field name) as 
the Result Field. The new result is then 
the product of the former result-field con- 
tents and a Factor: operation A x C or C x 
B = C . 

Factor 1 and Factor 2 may be the same 
field (i.e., have the same field name), but 
different from Result Field. The result is 
then the sguare cf either Factor: opera- 
tion A x A = C = + A 2 . 

Factor 1, Factor 2, and the Result Field 
may all be the same field (i.e., have the 
same field name) . The new result is then 
the sguare of the former result-field 
value: cperaticn C x C = C = + C 2 . 



Note: When the result field 
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For further details on multiplication, 
see sections above: General Points 
Applicable to Arithmetic Operations an d 
Relationship Between Size of Factors and 
Results; and also Figures 31, 32, and 37. 



DIV (Divide) 

The ccntents of the field or the literal in 
Factor 1 (dividend) is divided, algebraic- 
ally, by the literal or the contents cf the 
field in Factor 2 (divisor) . The result of 
this division operation (the guotient) is 
placed in the result field specified in 
cols. 43-48, and replaces any previous data 
in the result field. Any excess positions 
in the result field are set to zero. The 
remainder is accessible only if a Move 
Remainder (MVR) operation is next; other- 
wise it is lost. 

A dividend (Factor 1) of zero yields a 
guotient of zero. A divisor (Factor 2) of 
all-zero is not permitted; it will cause an 
error step. 

Half-adjustment (rounding) of the guo- 
tient is net permitted if the Move Remain- 
der operation (MVR) follows (see below) . 

Factor 1, Factor 2, and the Result Field 
may all be different fields: operation A -s- 
B = C. 

Factor 1 may be the saire field (i.e., 
have the same field name) as the Result 
Field: operation C * B = C * . 

Factor 2 may be the same field (i.e., 
have the same field name) as the Result 
Field: operation A * C = c*. 

Factor 1 and Factor 2 may be the same 
field (i.e., have the same field name) and 
be either different from the Result Field 
or the same field. This yields a guotient 
of 1 (to the left of any decimal point spec- 
ified for the Result Field, with zeros in 
all decimal positions) : operation A -j- A = 
C = 1., cr C * C = C ' = 1. — an inefficient 
method of setting a field to 1 . 

For further details on division, see 
sections above: General Points Applicable 
to Arithmetic Operations and Relationship 
B etwee n_S i z e_ o f _ F a c tors and Results; and 
also Figures 32 and 37. 

MVR (Move Remainder) 

The remainder from a Divide (DIV) operation 
is transferred — by a zero-and-add operation 
supplied by the program — to any result 
field specified in eels. 43-48 of this 
specification line. It replaces any pre- 
vious data in that result field. Any 
excess positions in the result field will 
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contain zeros. Factor 1 (eels. 18-27) and 
Factor 2 (eels. 33-42) must be left blank. 

MVF is an arithmetic operation. 
Therefore: 

The result is signed. The sign of 
the remainder is the same as the sign 
of the dividend. If the dividend vas 
unsigned, the result of an MVR opera- 
tion will be signed plus — since results 
of arithmetic operations are always 
signed. 

Decimal alignment is perfcrmed ty 
the program; 

Half-Adjustment (rounding) may be 
specified (H in col. 53) ; 

Resulting Indicators (eels. 54-59) 
may re assigned; 

If the Fesult Field is not large 
enough to accommodate all the high- 
order positiens in the remainder (after 
appropriate decimal alignment) , a 
corresponding number of the most- 
significant (leftmost) positions is 
lost. Nc warning message cr errcr stop 
occurs, either at generation or object- 
program execution time, if the Result 
Field is net large enough. 

The length of the remainder of a divi- 
sion is egual to the length cf the divisor. 
"Length cf the divisor" refers to the actu- 
al divisor used by the program in the CIV 



operation; this can be longer than the 
field length specified for Factor 2, if the 
divisor was padded by the prcgram--see 
Relati ons hip .Between Size of Factors and 
Res u 1 1 s j. Division, above. 

The value of the remainder (R) can be 
determined by the following formula 

R = Dividend - Diviscr x Quotient 
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Most likely applications of MVR are: 

1. To test whether the remainder is zero 

(illustrated in Figure 38) , and 

2. To perform division expansion (double- 
precision division) . 

(See also Figure F11 for another 
application. ) 

Figure 38 shows seme specifications for 
arithmetic operations. Specifications for 
such operations have also already been 
illustrated in Figures 5, 9, 10, 12, and 
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Figure 38. Examples of Specif icatiens for Arithmetic Operations 
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33; and Figure 36 identifies the pertinent 
specif icaticn fields for each cperaticn. 

Explanation of Entries in Figure 38 

The fields named ALPHA, GMMA, DELTA, and 
ZETA are assumed to have been defined in 
the input specifications or elsewhere in 
the calculation specifications. Note that 
all detail-time specif icaticns precede all 
total-time specif icaticns--an absolute 
requirement. Within these two cycle-time 
segments, the specifications are executed 
in the crder in which they appear. 

Specifications line 01. The field named 
EETA is set to zero, and the contents cf 
ALPHA are then added algebraically to the 
value zerc in EETA. The field length and 
decimal places for BETA are defined in line 
02; they could equally well be defined in 
line 1 instead, or in both lines--provided 
they are defined equally in both lines. 
The decimal point of ALPHA is aligned to 
accord with the two decimal places in EETA. 
Any. excess positions in EETA contain zero; 
and excess high-order positions in ALPHA, 
beyond the capacity of the BETA field, are 
lost. 

Factor 1 is not used with Z-AED. The 
specifications in this line are executed at 
detail time (cols. 7-8 blank), provided 
indicator 05 is en. 

Line 02. The value -12.32 is added alge- 
braically to (i.e., 12.32 is subtracted 
from) the contents of EETA. The numfcer of 
decimal places is egual in bcth factors. 
Thus: 

EETA XXX. XX 

ADD -_12^32 

Result: BETA ±XXX. XX 

Indicator 10 turns (or remains) en if the 
result is negative; otherwise it remains 
(or turns) off. The specifications in this 
line are executed at detail time, provided 
indicator 05 is on. 

line .03. The contents of the field named 
DELTA are added alcetraically to the con- 
tents of GAMMA. The result is stored at 
the location assigned by the program to 
EPSILN, defined as four positions long, the 
.fourth position being a decimal place. The 
specif icatiens in this line are executed at 
detail time, provided indicator 05 is en. 

line 04. If indicator 05 is on, and the 
value in EETA was last negative (indicator 
10 on) , then — at detail time — ALPHA is 
cleared to plus zerc. For instance: 



This is as efficient (in terms of core 
storage consumption) as, cr more efficient 
than, any other technique for setting a 
numeric field to zero. 



o 



Line 05. 



The field named ETA is set to 



ALPHA = 1234 
SU E : U 34 or 

= +0000 



SUE 



-1234 

-1234 

= +0000 



zero, and the contents of ZETA are then 
algebraically subtracted from the value 
zero in ETA. ETA is defined as containing 
no decimal places, and being six positions 
long. 

If the value in ZETA is positive, indi- 
cator 25 will be on after the operation 
(subtraction of a positive value from zero 
yields a negative result) . 

Factor 1 is not used with Z-SUE. The 
specifications in this line are executed at 
detail time, provided indicator 42 is on. 

Line 06. The value in the field named 
EPSILN is squared. (The result will always 
be positive or zero: the product of two 
positive or two negative values is posi- 
tive.) Since EPSILN consists of 4 posi- 
tions including one decimal place (see line 
03) , the product will contain 2 decimal 
places within a maximum of 8 positions 
total length. By specifying only 1 decimal 
position for THETA, a total length of 7 
positions for THETA is certain to accommo- 
date the maximum result. The second decimal 
position is retained for half-adjustment (H 
in col. 53) , and then dropped before the 
final result is placed into the location of 
THETA. 

Indicator 12 will be on after the opera- 
tion if the final (half-adjusted) result, 
after the second decimal place has been 
dropped, is zero (actually, plus zerc) . 

The specifications in this line are 
executed at total time (L-indicator in 
cols. 7-8), and provided indicator 11 is 
on. 

Line 07. The literal in Factor 1 is 
divided algebraically by the value in 
THETA. The operation takes place at total 
time, if L1 is on, hut is suppressed if the 
value in THETA is zero (indicator 12 on if 
THETA is zero) : division is not possible 
with a divisor of zero. 

THETA contains 1 decimal position (see 
line 06) , and 3 are defined for the Result 
Field (IOTA) . Since the literal in Factor 
1 has only 3 decimal places, the program 
pads the dividend by appending a as 
fourth decimal place; then, 4 decimal 
places in the dividend minus 1 in the divi- 
sor will provide the 3 decimal places 
called for in the quotient. 

The dividend, after padding, is 10 posi- 
tions long. Providing 10 positions in the 
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result field (IOTA) allows for any numler 
cf leading zeros in the divisor. If it is 
known that there is always a significant 
digit in the high-order position of IHETA, 
IOTA need be no larger than 4 positions: 
10 dividend positions (after padding) - 7 
divisor positions + 1 = 4--see Relationship 

Between Size of Factors and Results: Eivi^ 

si on , above. 

Half-adjustment (rounding) --which, if 
specified, would have padded the dividend 
by an additional zero--is not permitted 
because an MVR operation fellows. 

line. 08. The field named KAPPA is set to 
zero. Then, the remainder from the divi- 
sion operation in line 07 is placed in 
KAPPA. THETA, the divisor, is 7 positions 
long, including 1 decimal place. There- 
fore, the remainder is also 7 positions 
long. The dividend, after padding, 
includes 4 decimal places; therefore, the 
remainder has 4 decimal places. KAPPA is 
to contain 3 decimal positions (3 in ccl. 
52) ; therefore, 6 positions will accommo- 
date the entire remainder after the last 
decimal place has been dropped. Half- 
adjustment (specified by H in col. 53) 
occurs before the last decimal position is 
dropped. The half-adjusted (rounded) 
remainder is henceforth available at the 
location named KAPPA; without the MVR 
operation it would be lost. 

Indicator 08 is on after the operation 
if the remainder, after half -ad justment and 
dropping cf the fourth decimal position, 
was zero. 

The Factor fields are net used with MVR. 

Note that the MVR specification must be 
in the line immediately following the per- 
tinent DIV operation, and that the two 
specification lines must have identical 
entries for conditioning indicators 
(cols. 7-17) . 



Move Operations 

These operations move part or all of the 
literal in Factor 2 t or of the contents of 
the field named in Factor 2, to the field 
named in Result Field. The contents cf the 
field or the literal in Factor 2 remains 
unchanged. The data moved to the result 
field replaces the former contents cf the 
corresponding positions cf the result 
field. The Result Field must be defined in 
the same, or another, calculation specifi- 
cation line, or it must have been defined 
in the input specifications. Move opera- 
tions differ from arithmetic operations in 
several significant respects. Points gen- 
erally applicable to move operations 
follow: 



1. No automatic decimal aliqnment is per- 
formed by the program. Nevertheless, a 
numeric result field must be defined as 
numeric somewhere by an entry (0-9) in 
Decimal Positions (col. 52), which also 
locates the decimal point for possible 
compare or arithmetic operations with 
that field, 

2. When data is moved only to a portion of 
the result field, the contents of the 
remaining portion are not changed. 

3. At the beginning of procrram execution, 
data fields are set tc: 

Blank (EBCDIC 4C) in all positions — if 
defined as alphameric; 

Zero (EECDIC 0) in all digit positions, 
with lew-crder positions unsigned 
(lewest-order half-byte EBCDIC F) — if 
defined as numeric. 

Therefore, if no data has been 
placed in a result field by a prior 
operation, any portion of the result 
field that exceeds the source field in 
a move operation remains blank or zero 
(alphameric or numeric field, 
respectively) . 

Note: See Appendix D for code 
structure . 

4. A numeric result field is only sianed 

(other than hexadecimal F) if it was 
signed before the move, or if a sian is 
moved into its low-order position. 
Also, a siqn in the lew-order position 
cf a numeric field can be removed 

(i.e., hexadecimal F can be placed in 
the sign position) . 

5. A result field can be minus zero: if 
only zeros and a minus sign are moved 
(or no sign position is moved but the 
result field previously contained a 
minus sign), and no significant diqits 
remain in the result field, it will 
contain zeros and be signed minus. If 
the sign position is then tested by 
TESTZ (assuming the field is then 
alphameric) , a Resulting Indicator 
assigned to Minus (cols. 56-57) will 
turn on. 

6. Data may — with limitations, defined 
below--be moved from an alphameric 
field tc a numeric field, and vice 
versa. 

7. The diqit portions of numeric fields 
are net restricted tc EECDIC-table rows 
0-9 (see Appendix D, Fiqure D1); i.e., 
no test is made that they contain only 
valid digits that can be used in arith- 
metic or editing operations. 
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8. Half-adjustment is net possible; there- 
fore, ccl. 53 must be left blank. 

9. Resulting Indicators cannot be 
assigned; therefore, eels. 54-59 must 
be left blank. 



The diqit portion of each position to 
be moved is transferred from the source 
field (Factor 2) to the equivalent 
position of the result field; a blank 
is transferred as 2ero. 



I I 



10. The execution cf move operations may be 
conditioned by indicator entries in 
Control Level (cols. 7-8) and Indica- 
tors (cols. 9- 17) . 

11. Only cne source-data field (Factor 2) 
is involved in any move operation. 
Factor 1 must be left blank. 

12. Maximum field sizes-- 

Numeric fields: 15 positions 
Alphameric fields: 256 positions. 

When an alphameric field is moved to 
a numeric field, or vice versa, only 15 
positions can be transferred. 
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Effects cf Each Operation Code 

MOVE (Move Right-Aligned) 

The contents of the field cr the literal in 
Factor 2 is moved into the specified result 
field, right-aligned. 

If the result field is longer than Fac- 
tor 2, the excess left-hand positions cf 
the result field remain unchanged. If the 
result field is shorter than Factor 2, the 
contents of only the equivalent number of 
riqht-hand positions of Factor 2 are placed 
in the result field. 

A source field or literal defined as 
alphameric can be moved tc a result field 
defined as alphameric or numeric; also, a 
source field or literal defined as numeric 
can be mcved tc a result field defined as 
alphameric or numeric. 

When an alphameric field cr literal is 
moved to a field defined as numeric (i.e., 
with Decimal-Positions entry in ccl. 52 
wherever the field is defined) : 



The zone portion of the low-order posi- 
tion cf the source field (Factor 2) is 
also transferred to the low-order posi- 
tion of the result field. Zones in 
other positions of the source field are 
net transferred. 



Note: 

1. The transfer of the lew-order- position 
zone from an alphameric field to a nu- 
meric result field adheres to the fol- 
lowing rules, so that valid signs for 
arithmetic operations result. 
(Refer to EBCDIC table, Appendix D, 
Figure D1) : 



a. If the source position (in Factor 

2) contains any of the punch combi- 
nations in EECDIC-table column E or 
F, the E- or F-zone, respectively, 
is transferred to the result field, 
and the result field is considered 
positive (cr zero, if entire 
result-field is zero) . 

b. If the source position contains any 
of the punch ccmbinations in 
EBCDIC-table column D, or an EECDIC 
60, D-zone (minus) is transferred 
to the result field, and the result 
field is treated as negative (or 
zero, if entire result field is 
zero) . 

c. All other punch combinations in the 
source position are transferred to 
the result field with C-zone 

(plus) , and the field is treated as 
positive (or zero, if entire result 
field is zero) . 

If a numeric literal is signed, the 
sign is recorded in the leftmost posi- 
tion (col. 33) of Factor 2. Neverthe- 
less, the program signs the low-order-- 
not the high-order — position of the 
literal. Therefore, if the literal is 
used in a move operation, the sign is 
in the proper position. 



Figure 39 portrays the alignment and 
zone transfer in MOVE operations. Figure 
41 includes specifications for some MOVE 
operations in Figure 39 (as well as for the 
MOVEL operations in Figure 40) . 



c 
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Figure 39. MOVE Operations 
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MOVE! (Move Left-Aligned) 

The contents of the field cr the literal in 
Factor 2 is moved into the specified result 
field, left-aligned. 

If the result field is longer than lac- 
tor 2, the excess right-hand positions of 
the result field — including a sign in a 
numeric result field — remain unchanged. Tf 
the result field is shorter than Factor 2, 
the contents of cnly the equivalent number 
of left-hand positions of Factor 2 are 
placed in the result field (but see 
explanation of zone moves, below) . 

A source field cr literal defined as 
alphameric may be mcved to a result field 
defined as alphameric or numeric; also, a 
source field or literal defined as numeric 
may be mcved to a result field defined as 
alphameric or numeric. When moving Factor- 
2 data to a numeric Result Field, cnly the 
low-crder position of the Eesult Field can 
have a zcne transferred to it. If no zone 



position is transferred, the numeric Eesult 
Field retains its former zone; positions 
other than the low-crder positions can con- 
tain digits only. Elank in an alphameric 
field is transferred to a numeric fielcb : as 
zero. '*•■■" 



Figure 40 illustrates MOVE! operations, 
including the behavior of zones (or signs) . 
Figure 41 contains the specifications for 
the MOVE and MOVEL operations shown in 
Figure 39 and 4C. 

Eules for MOVEL zone transfers 

1. Factor 2 same length as Result Field 

a. Factor 2 and Eesult Field numeric: 
Sign is moved with low-crder digit 

b. Factor 2 numeric, Eesult Field 
alphameric: Sign is moved with 
low-order digit; other result-field 
positions will contain only digits. 
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Figure 4C. MOVE! Operations 
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c. Factor 2 alphameric. Result Field 
numeric: Zone and digit portions 
of low-order character are moved; 
zones in other positions are not 
moved . 

d. Factor 2 and Result Field alphamer- 
ic: All characters are moved to 
the equivalent Result Field 
positions. 

Note : When Factor 2 and the Result 
Field are the same length, the MOVEL 
and MOVE operations perform identical 
functions. 

2. Factor 2 longer than Result Field 

a. Factor 2 and Result Field numeric: 
The sign from the low-order posi- 
tion of Factor 2 is moved over the 
low-order digit of the Result 
Field. 

b. Factor 2 numeric. Result Field 
alphameric: No sign is trans- 
ferred; result field will contain 
only digits. 

c. Factor 2 alphameric. Result Field 
numeric: Zone from the low-order 
character of Factor 2 is moved over 
the low-order digit of the result 
field; other result-field positions 
will contain only digits. 

d. Factor 2 and Result Field alphamer- 
ic: The appropriate number of 
leftmost characters in Factor 2 is 
moved to the equivalent positions 
of the result field. 

3. Factor 2 shorter than Result Field 

a. Result Field numeric: The digit 
portion of the Factor-2 data 
replaces the contents of the equi- 
valent number of leftmost positions 
in the result field. These result- 
field positions will contain only 
unsigned digits. The sign in the 
low-order position of the result 
field is not changed. 

b. Result Field alphameric: The 
entire characters in Factor 2 
replace the contents of the equiva- 
lent number of leftmost positions 
in the result field. No change is 
made in the zone of the low-order 
position of the result field. 



Note : 

1. Whenever the operation does not involve 
transfer of a sign (or zone) portion to 
the low-order position of the result 
field, the sign (or zone) previously in 



the low-order position of the result 
field is left unchanged. 

2. Whenever the operation involves transf- 
er of a zone portion from an alphameric 
Factor 2 to the low-order position of a 
numeric result field, the particular 
zone placed over the low-order digit of 
the numeric result field follows the 
rules itemized in the Note under MOVE, 
above. 



MOVE 
a numbe 
facilit 
racters 
between 
order z 
word in 
causes 
zero) . 
Program 
ing of 
result 



and MOVEL operations are useful in 
r of situations. For example, they 
ate splitting a field so that cha- 

(such as a hyphen) can be printed 

the portions while retaining high- 
eros in the printout (use of an edit 

the output-format specifications 
suppression of at least one leading 

This application is described in 
Ming Tips . Also, a literal consist- 
zeros or blanks can be moved into a 
field to clear all or part of it. 
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NOTE: For ease of illustration the Result Field is defined 
in each Move -specification line. 



Figure 41. MOVE and MOVEL Specifications 
for Moves Illustrated in 
Figures 39 and 40 

Points to Note in Figures 40 and 41. 

1. Factor 2 may be a field name or a lit- 
eral (see Figure 41: items 5, 11, 12, 
13, 14, 15, 20, 22) . 

2. Although — if a sign is specified for a 
numeric literal — it must be recorded 
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leftmost, the program treats the sign 
as being located in the low-order posi- 
tion: compare items 11, 12, 15, and 20 
in Figures 40 and 41. 

3. Item 15 illustrates that a minus zero 
result can occur after a move 
operation. 

4. The decimal-point location in the 
Result Field is independent of any dec- 
imal point in the source field (Factor 
2) : see all numeric items — no decimal 
alignment takes place between the 
source and result fields in a move 
operation. Nevertheless, a Decimal- 
Positions entry (col. 52) is required 
wherever a numeric result field is 
defined, and there must be no Decimal- 
Positions entry for alphameric fields. 

5. The zone (or absence of zone) in the 
low-order position of the result field 
is not changed when the move operation 
does not involve transfer of a zone 
portion to the low-order position of 
the result field: see items 19-22 in 
Figure 40. 

6. Items 19 and 21 also indicate that the 
low-order position of a numeric result 
field can originally contain a sign, 
but can also be unsigned (hexadecimal 
F). 

7. Factor 1 must be left blank in all Move 
operations. 



Move Zone 

This operatio 
vide for movi 
(leftmost) or 
tion of one f 
position of a 
the specified 
eral in Facto 
position of t 
zone previous 



n has four variations, to pro- 
ng a zone from the high-order 

low-order (rightmost) posi- 
ield to the high- or low-order 
nother. The zone (if any) in 

position of the field or lit- 
r 2 is moved to the specified 
he Result Field, replacing any 
ly in that position. 



A zone can be moved from an alphameric 
field or literal to an alphameric or numer- 
ic field, or from a numeric field or liter- 
al to a numeric or alphameric field. How- 
ever, since numeric fields can have a zone 
only in the low-order position, a zone can- 
not be moved from or to the high-order 
position of a field defined as numeric. 



M LLZO (Move Low-order zone to Low-order 
JZOne position) . The zone in the low-order 
position of the field or literal in Factor 
2 is moved to the low-order position of the 
Result Field. Factor 2 and/or the Result 
Field may be numeric or alphameric. 



MHHZO (Move High-order zone to High-order 
JZOne position) . The zone in the high-order 
position of the alphameric field or literal 
in Factor 2 is moved to the high-order 
position of the alphameric Eesult Field. 

KLHZO (Move Low-order zone to High-order 
ZOne position) . The zone in the low-order 
(rightmost) position of the numeric or 
alphameric field or literal in Factor 2 is 
moved to the high-order (leftmost) posi- 
tion of the alphameric Result Field. 

MHLZO (Move High-order zone to Low-order 
JZOne position) . The zone in the high-order 
position of the alphameric field or literal 
in Factor 2 is moved to the low-order posi- 
tion of the alphameric or numeric Result 
Field. 

A zone is moved to an alphameric Result 
Field exactly as it appears in the source 
field (Factor 2) . When transferring to 
numeric fields, certain zones that may 
appear in alphameric fields are first 
converted — see the Note under MOVE, above. 

Figure 42 illustrates Move-Zone opera- 
tions. Figure 43 includes some specifica- 
tions for the operations illustrated in 
Figure 42. 
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Factor 2 



| Result Field 
4 



| Result Field after Move-Zone Operation | 

| Contents | | Contents | | | | | 

Format | (field or. | Format | before Move- | MLIZO | MHHZO | MIHZO | MHLZO I 

| literal) | | Zone Operation j I | II 

Alph. | AH5SR | Alph. I S51T | S51L | B51T | K51T |S51C | 

Alph. | AH5SR | Num. | 12.3 | 12.3 | not appl. | not appl.|12.3 | 



852.5 



Num. 



06.282 



4- 



Num. | 

Num. | 4.7524 I Alph. | fKD 

Alph. | 6 | Alph. | AFJRX 
__■ 4 4 +. 



j 06.28$ | not appl. | net appl. | net appl. | 

| not appl, I 



Num. 



| Ntii 



I 



;8C2* 



| MM j not appl. | -KD 

| AFJR7 | 1FJRX | 1FJRX | AFJR7 



| 5802 

JL, 



| not appl. | not appl. |not appl, J 



Figure 42. Move-Zcne Operations 
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Compare anj, Zone-Testing_Operaticn s 

These operations test data cenditiens 
without effecting any changes in data 
fields. Results of the tests are signified 
by the status of Resulting Indicators 
assigned in cols. 54-59. Execution of the 
specifications for these operatiens may be 
conditioned by the status cf indicators 
designated in Control Level (eels. 7-8) and 
Indicators (cols. 9-17). 

Effects cf Each Operation Code 



COMP (Compare) 






The co 
Factor 
of the 
Any Re 
54-59 

(Facto 
differ 
is per 

(Facto 
always 
"Equal 



ntents of th 

1 is cempar 

field or th 
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ent field na 
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r 1 and Fact 

yields a cc 
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e field cr the literal in 
ed against the contents 
e literal in Factor 2. 
cators specified in cols, 
result cf the comparison. 
or 2 normally contain 
mes or literals; but it 
mpare data tc itself 
or 2 identical) , which 
mparison result of 
It Field (and related 



fields — i.e., cols. 43-53) must be left 
blank. 

A Resulting Indicator must be assianed 
to at least one of the three possible 
conditions: 



High (eels. 54-55) : 
Low (cols. 56-57) : 
Equal (cols. 58-59): 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 



After the Ccmpa 
ing Indicator (if 
dition found to ex 
cators assigned to 
conditions turn of 
indicator may also 
one of the three p 
High and Low, or H 
Equal) ; it then tu 
ditiens to which i 
Different indicato 
two, or all three, 
tions. The status 
tors can be used t 
of calculation spe 
in cols. 7- 17) and 
fications (by entr 



re operation, the Result- 
any) assigned to the con- 
ist, turns on; any indi- 

the other two possible 
f. However, the same 

be assigned to more than 
ossible conditions (e.cr., 
igh and Equal, or Low and 
rns on if cne of the ccn- 
t was assigned applies,' 
rs may be assigned to 

of the possible condi-? 

cf the Resulting Indica-j 
o conditicn the exeekfci&jft. 
cifications (by entries;" .) 
/cr output-format specl* 
ies in cols. 23-31). 



If execution cf the calculation-speci- 
fication line that contains the Compare 
operation is itself conditioned by indica- 
tors (in cols. 7-17), the user must remem- 
ber that the cemparisen will not be executed 
during each program cycle unless the status 
of the conditioning indicators is always 
appropriate. Therefore, Resulting Indica- 
tors could reflect an earlier, and possibly 
inapplicable, comparison. 

Factor 1 and Factor 2 must both be 
alphameric cr both numeric. Certain 
aspects of the compare operation differ for 
alphameric and numeric fields or literals* 
as follows. 
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Alphameric Fields cr Literals: 



is given in Programm in g Tips, Appendix 

E. 



1. 



2. 



4. 



Fields (or literals) of unequal length 
are lef t-aliqned. The shorter field is 
assumed to contain an equivalent number 
of blank right-hand positions to eauate 
the length of both fields. 

Elanks within a field (or literal) are 
treated as blanks, net as zeros. 

Maximum length of the (longer) Factor 
is 4C positions. 

The comparison is hased upon the 
internal Model 20 collating sequence, 
which corresponds to the EBCDIC-table 
seguence (see Appendix D, Figure D 1) . 
Note that, in EBCDIC, the mest-cemmonly 
used characters follow this seguence: 
£/ S, -, /, fl-Z, 0-9. Thus, a digit 
signed positive (if the field is 
defined as alphameric) is lower in 
seguence than one signed negative, or 
than an unsigned digit. 



The user has the option of substi- 
tuting any seguence of his choice for 
the standard EECDIC sequence, by means 
of a translation table (see Altered 
Collating Seguence, Appendix D) . The 
altered collating seguence will then 
apply both to alphameric Ccmpare opera- 
tions and to Matching-Fields 
operations. 

Numeric fields or Literals: 

Numeric Compare is tantamount to an arith- 
metic operation. Therefore: 

1. Fields or literals of unequal length 
are aligned at the (defined cr implied) 
decimal point. Where cne field or lit- 
eral is then shorter than the ether (at 
the high-order cr lew-crder end) , it is 
assumed to contain an equivalent number 
of zeros. 

2. The maximum length of a Factor is 15 
positions. (This refers to the literal 
or field specified in the Factcr; any 
left cr right zeros assumed by the pro- 
gram for decimal alignment — see 1, 
above — are not counted when considering 
the limitation of 15 positions.) 

3. The comparison is algebraic; i.e., a 
positive value is treated as higher 
than the same value signed negative. 
The_seguence, fr_cm low to high, is: 9 
to 1, 0, 1 (cr 1) to 9 (cr 9). 0=0= 
0. A value with an unsigned (hexade- 
cimal F) lew-order digit is treated as 
positive (unless all digits are zeros) . 
A technique for performing absolute 
numeric Compare (i.e., ignoring signs) 



If the low-order position of a field 
does not contain a zone acceptable as a 
sign (hexadecimal zone C, D or F ; or 
hexadecimal byte 05-06), an error stop 
occurs. 



o 



4. All positions of both Factors must con- 
tain valid digits: 

Considering an input field before it 
is packed by the program, the character 
in each column must be represented in 
rows 0-9 of the EBCDIC table (Appendix 
D, Figure D1). For packed data, the 
eguivalent valid EBCDIC characters were 
described under Packed (col. 43) , in 
Input Specificat ions . 

Any characters that do not represent 
digits (or, digit plus sign in the low- 
order position) cause an abortive pro- 
gram stop. 

Compare is frequently a more efficient 
method of seguence-cbeckinq than the use of 
Matching Fields for that purpose alone. It 
also allows checking for duplicates, which 
the Matching-Fields specifications cannot 
accomplish. Figure 68 — Part I includes an 
illustration utilizing Compare for this 
purpose. 

Figure 43 includes some specifications 
for Ccmpare operations: 



Specifications line. 07. The contents of 
the field SLS66 (say, 1966 sales) are com- 
pared with the contents of SLS65. If 1966 
sales exceeded 1965 sales, Resulting Indi- 
cator 21 is turned on; if they were less, 
Resulting Indicator 26 turns on; if the two 
years had egual sales, 30 turns on. The 
two inapplicable indicators will be off 
after the compare operation. 

Line 08. The alphameric literal OCTOEER is 
compared against the contents of the field 
named MONTH (which must also be defined as 
alphameric) . If the MONTH field does not 
consist exactly of the word OCTOBER, indi- 
cator 15 is turned on; if it does consist 
exactly of OCTOBER, indicator 15 will be 
off after the compare operation. 

Line C9. The contents of the field named 
GESPAY (which must te defined as numeric) 
are decimal-aligned with the numeric 
literal 1250.00, and then compared 
algebraically against it. If GRSPAY 
contains a value algebraically egual to or 
larger than 1250.00, indicator 04 turns on; 
if its value is algebraically less than 
1250.00, indicator 05 turns on. The 
inapplicable indicator of the two (04 or 
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05) will be off after the compare 
operation. 
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TESTZ (Test Zone) 
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A Resulting Indicator must be assigned 
to at least one of the three possible 
cond itions 4 — 



Plus (cols 



54-55) — Equivalent cf 12- 

punch: &, or any of 
the characters that 
have the same zone as 
the letter A. 

In terms of the EECDIC 
table: code 50, cr 
any of the 16 charac- 
ters in the eclumn 
labelled C. 



Minus (cols. 56-57) --Equivalent cf 11- 

punch: -, cr any of 
the characters that 
have the same zone as 
the letter J. 



In terms of the EECEIC 
table: code 60, or 
any of the 16 charac- 
ters in the column 
labelled D. 



Elank (cols. 58-59) --Other zones, or egui- 

valent of no zone: 
Any of the 222 EECEIC 
characters not consi- 
dered Plus or Minus 
(see immediately 
above) . 

After the TESTZ operation, the Besulting 
Indicator (if any) assigned to the condi- 
tion found to exist, turns en; any indica- 
tors assigned to the other two possible 
conditions turn off. However, the same 
indicator may also he assigned to more than 
one cf the three possible conditions (e.g., 
Plus and Elank, or Minus and Blank, or Plus 
and Minus) ; it then turns on if one of the 
conditions to which it was assigned applies. 

Different indicators may be assianed 
to two, or all three, of the possible con- 
ditions. The status of the Pesulting Indi- 
cators can be used to condition the execu- 
tion cf calculation specifications (by 
entries in cols. 7-17) and/or cutput-f crmat 
specifications (by entries in cols. 23-31). 
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Fiqure 43 includes some examples of spec- 
ifications for the TESTZ operation. 
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*NOTE 1: Field Length and Decimal Positions, if applicable, need be defined here only if 
not defined elsewhere. Factors are assumed to be defined elsewhere. 
**ffJ£0TE 2: Conditioning Indicators (cols. 7-17) may be used with all of these operations. 
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Factor 1, Factor 2, Result Field, Deci- 
mal Positions, and Half-Adjust must te left 
blank. 

Execution of these operations may be 
conditioned by the status cf indicators 
designated in Control level (eels. 7-8) and 
ift Indicators (eels. 9-17). 

Effects of Each Operation Code 

SETOH (Set on) 

tTie indicators assigned by entry in cols. 
5^~f5V 56-57, and 58-59 are turned on. 



SETOF (Set Off) 

The indicators assigned by entry in cols. 
54-55, 56-57, and 58-59 are turned off. 

Points to Note: 

1. Any indicator may be SET0N or SET0E. 

2. If the IE indicator is SETON durino 
total-time calculations, processing is 
terminated after total-time output. If 
it is SETON during detail-time calcula- 
tions, it is turned off again by the 
program after detail-time output for 
that card. 

3. If the MR indicator is SETON or SETOF, 
it assumes — before the next detail- 
calculation time — the status it would 
have without the prior SETCN or SETOF 
instruction. 

4. If the CF or OV indicator is SETCN or 
SETOF, it assumes--after completion cf 
the nearest following detail-time or 
total-time output — the status it would 
have without the prior SETON or SETOF 
instruction. 
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5. If indicator LO is SETOF, it is turned 
en again by the program, after the next 
detail-time output. 

6. If indicator H1 or H2 is SETCN, and has 
net teen turned eff by a specification 
before the next detail-time output, the 
system halts after detail-time output. 
If the system is restarted (by pressing 
the CPU START key twice) , the program 
sets H1 and H2 off at that point. 

7. SETON or SETOF of any I-indicator (LR, 
L9-L1, LO) does not automatically set 
any ether L-indicator en or eff. 

8. Indicators 1P and I1-L9 are always set 
off by the program after detail-time 
output. 

9. The status cf any indicator assigned as 
card-type Resulting Indicator (eels. 
19-20 in the input specifications) is 
revised — based on card type read — after 
detail-time cutput, regardless of any 
prior SETON or SETOF instruction. 

10. The status of any indicator assigned as 
Field Indicator (cols. 65-70 in the 
input specifications) is revised — based 
on the contents of the input field — 
before detail-time calculaticns, regard- 
less of any prior SETCN or SETOF 
instruction. 

11. An indicator assigned to Zerc-or-Blank 
in Field Indicators (input specifica- 
tions) , or in Resulting Indicators 

(calculation specifications) of an 
arithmetic or TESTZ operation, turns on 
upon execution of a Elank-After 
instruction (output-format specifica- 
tions) , regardless of any prior SETOF 
operation. 

All of these points were fully discussed 
earlier under Program Logic Flow , Indica- 
tors, and Indicator, Hierarchy. 

Figure 43 includes SETCN and SETOF spec- 
ificatiens. SETON is also illustrated in 
Figures 5D and 33. 

Branching 

Within the grouping of detail time and 
total time, the RPG program normally 
executes specifications in the order in 
which they appear. Eranching implies 
deviation from this natural seguence. 

Two types of branching are possible with 
this RPG: 

1. Branching within RPG: Skipping tc an 
RPG calculation specification ether 
than the next one in the normal 
seguence . 



2. 



This involves the EPG operation code 
GOTO for the point cf origin of a 
branching operation, and the pseudo- 
operation code TAG for the point cf 
destination of a branching operation. 

Branching within RPG, by a GOTC 
instruction, can be useful in several 
situations. For instance: 

To bypass an entire calculation 
section that is inapplicable when 
certain conditions apply (see 
Figure 44) . 

To call in a complete RPG routine 
that applies only under certain 
circumstances (e.g., square root). 

To call in an RPG routine that ap- 
plies tc several, hut net all, card 
types. This method may consume 
less core storage space than 
repeating the specifications in 
several places. 

To bypass detail cr total output 
under particular conditions (see 
Figure 44) . 

To iterate a sequence of specifica- 
tions; i.e., to create a program 
loop (see Figure 44A, lines 05-13) . 

To repeat the same cutput several 
times, based on a control number 
which may vary for different input 
cards (see Programming. Tips, Appen- 
dix E) . 

Branching to an external subroutine: 
Transferring control of the program 
from RPG to an external routine in 
machine language, provided by the user 
or supplied by IEM. 
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This kind of branching involves the 
operation code EXIT for the point of 
origin of a branch, and the pseudo- 
operation code RLAEL. The latter iden- 
tifies specification lines which define 
fields that are used both in an exter- 
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nal routine and in the FPG program, and 
indicators that are referenced in an 
external subroutine. 

Branching to an external routine may 
enable the user to incorporate, in a 
program principally written for EPG, 
operations not easily accomplished with 
EPG itself (e.g., selection of the last 
card of each control ./roup — see Pro- 
gramming Tips, Appendix I) . 

Any number of external subroutines 
may be used with an EPG program, within 
the limits of core storage positions 
available. 

Both the GOTO and the EXIT operations 
may be conditioned by the states of indica- 
tors designated in Control Level (cols. 
7-8) and Indicators (eels. S-17). 

Eranchinc Within EPG 



GOTO (Branch To) 
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n specification line. For 
etail-tiire calculaticns to 
latiens, cr vice versa, see 



Factor 2 must contain the name (the 
address) of the point of destination cf 
this branch instructicn. The rules for 
forming this name are identical with those 
for field names (i.e., one tc six charac- 
ters in censecutive columns, the first cf 
which must be in ccl. 33 and must be alpha- 
betic, the remainder being alphabetic cr 
numeric) . The same point-cf-destinaticn 
name may be used with any number of GOTO 
points of origin; i.e., several points of 
origin may all branch to the same EPG rou- 
tine. But, of course, any one pcint-cf- 
destinaticn name can only te associated 
with a single destination feint (see TAG, 
below) . The pcint-of-destination name must 
not te used for any ether purpese; i.e., it 
must not also be a field name in input spec- 
ifications or in other calculation 
operations. 

Factor 1, Eesult Field (and the asso- 
ciated fields for Field length, Decimal 
Positions and Half-Adjust), and Eesulting 
Indicators — i.e., eels. 18-27 and 43-5S — 
must all be left blank. 

The GCTO operation can te an uncendi- 
tional branch--ccls. 7-17 are then blank — 
or it can be a conditional tranch^-i. e. , 



there are entries in Ccntrol Level and/or 
Indicators, cols. 7-17. 

If Control Level (eels. 7-8) contains an 
entry (L0-L9, or LE) , the branch is 
executed at total time, provided the parti- 
cular I-indicator is on— and subject to the 
status of indicators that may be designated 
in Indicators (cols. 9-17). If Control 
Level (cols. 7-8) is blank, the branch is 
executed at detail time — subject tc the 
status of indicators that may be designated 
in Indicators (cols. 9-17). 

TAG (Destination of a Branch Operation) 

This pseudo-operation code merely desig- 
nates the specification line as a destina- 
tion point to which a GOTO operation may 
branch. Factor 1 contains the point-of- 
destination name (left-aligned, starting in 
col. 18) that was assigned in Factor 2 of 
the related GOTO specification line (s) . 

A point-of-destination name cannot be 
associated with more than one TAG specifi- 
cation line — otherwise the program could 
not know to which of several destination 
points it should branch— nor can it serve 
as a field name anywhere else except as a 
destination name in GOTO specification 
lines. 

Factor 2, Eesult Field (and its asso- 
ciated fields) , and Eesulting Indicators — 
i.e., cols. 33-5S--must be left blank. The 
Indicators fields (eels. 9-17) must also be 
left tlank. 



AG line is preceded by total- 
ication lines (i.e., lines with 

entries in Control Level, cols. 
AG specification line must also 
ndicator (LO, L1-L9, or LE) in 
el (cols. 7-8) . If the TAG line 

by detail-time specification 
, lines without entries in Con- 

ccls. 7-8) , the TAG line must 
nk in Control Level (cols. 7-8) . 



The presence or absence of an L- 
indicatcr in Control Level (cols. 7-8) — as 
stipulated in the preceding paragraph- 
serves two purposes at object-program 
generation time: 

1. The program checks that all specif ica- 
tiens for detail time precede all spec- 
ifications for total time. The TAG 
line must satisfy this check. 

2. Absence of an L- indicator in Control 
Level (cols. 7-8) of the TAG line sig- 
nifies that the destination of the 
branch operation lies within detail- 
time calculations; presence of an L- 
indicatcr in Ccntrcl Level of the TAG 
line signifies that the destination of 
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the branch operation lies within total- 
time calculations. The significance of 
this distinction becomes apparent when 
branching between detail-time and 
total-time calculations is considered 
(belcw) . 



N°ie: It is the presence or absence of 
an (any) L-indicator (in Control Level 
of the TAG line) at generation time 
that determines whether the branch 
destination lies within detail or total 
time. At object-program execution 
time, it is immaterial whether that 
L-indicator is en or off: the TAG line 
will still serve to identify the branch 
destination. 



o 



When performing a GOTO 
program skips to the opera 
the TAG line which contain 
the same name that the par 
contains (in Factor 2) . T 
tion may be another specif 
the same cycle time-segmen 
total time, respectively) ; 
GOTO line and the line fcl 
both blank in Control Leve 
both contain L-indicators 
The operation in that line 
executed — subject to condi 
tors in cols. 7-17. Thenc 
proceed sequentially, line 
normal. If the TAG line i 
laticn specification line 
segment (detail time or to 
pertinent output operation 
time or total-time output) 
continues in its standard 
in Figure 6, RPG Program L 
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Branching Between Detail-Time and Total- 
Time Calculations within RPG 

a. Eranching from total-time calculations 
to detail-time calculations. 

If the GOTO line contains an L- 
Indicator in Control Level (cols. 7-8) 
but the associated TAG line does net, 
the program skips from the point of the 
GOTO line in total-time calculations to 
the point following the TAG line in the 
detail-time calculations. 

Total-time and overflow-time outputs 
are bypassed. The status of all indi- 
cators remains unchanged — including 
L-indicators (L0-L9, LR) , overflow 
indicators (OF, OV) , KB indicator, and 
Field Indicators. Figure 6, BPG Pro- 
gram Logic, shows what normal program 
actions are bypassed en a skip frcm 
total-time to detail-time calculations. 



The data from the previous card 
remains available. If the program then 
continues in the normal sequence, the 
data from the next card to be processed 
never becomes available. 

If the LR (Last Record) indicator is 
on before the branch operation, it 
remains en until completion of detail- 
time output, at which time it is turned 
off by the program. Normal end-of-job 
routines are bypassed; the exact conse- 
quences, if an end-of-job situation 
exists, are difficult to predict in 
generalized terms, because they depend 
on a combination of conditions. 

b. Eranching from detail-time calculations 
to total-time calculations. 



If the GOTO line is blank 
level (cols. 7-8) but the 
TAG line contains an L-ind 
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If l-indicators or card-type Result- 
ing Indicators were turned on or off 
(by SFTON or SETOF, or as Resulting 
Indicators) during detail-time calcula- 
tions preceding the GOTO operation, 
they retain that status. If indicators 
assigned as Field Indicators, or the MR 
indicator, were turned en or off during 
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detail-time calculations preceding the 
GOTO operation, they revert — after each 
repeated total-time cutput — to the set- 
ting they had immediately preceding the 
original detail-time calculations for 
the card beinq processed. 



If an overflow- indicato 
CV) was turned on or off d 
time calculations precedin 
operation, it reverts--bef 
time cutput--tc its status 
of the preceding total-tim 
However, if OF (or OV) was 
conclusicn of the precedin 
output, and a carriage-tap 
punch is encountered durin 
repeated total-time cutput 
turns en. Once turned en 
12, it will always be en a 
cutput time, until the nex 
output has been completed. 



Normally, branching from detail time 
to tctal time is employed to repeat 
printed output on paper forms. Hew- 
ever, if punching cr printing into 
combined-file cards is performed during 
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repeated total-time output, it takes 
place in successive cards of the file 
and these additional cards are not 
read. (See Multi ple -Time Output to 
Cards during One Program Cycle, under 

F^gg^gg-Xggjrg Flow . ) 

Note: When the calculation specifications 
call for branching (GOTO and TAG) between 
detail time and total time, a warning mes- 
sage is printed during generation of the 
object program: "GOTO AND TAG ARE NOT IN 
THE SAME CAICUIATICN TIME." 

Figures 44A and B illustrate GOTO and 
TAG specifications. (The particular speci- 
fications used in Figure 44--other than 
GOTO and TAG — were random choices.) 

Explanation of Entries in Figure 44A 

If the result of the subtraction in line 1 
was negative, control is transf erred--by 
the specifications in line 02--to RTN 1 
(say, Routine 1) in line C9 — both points 
wholly within detail time. Otherwise, the 
multiplication in line 03 is first 
executed, and then control is transferred 
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to line C9. This illustrates a conditional 
branch (Indicator 10 in line 02) and an 
unconditional Iranch (no Indicatcr in line 
04) ; it also exemplifies forward branching 
from several pcints cf origin (lines 02 and 
04) to the same point of destination (line 
C9) . 
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the GOTO branch is to a TAG line that is 
the last detail-time specification — the 
ENDDTL TAG-line is blank in Control Level 
(cols. 7-8) , which defines it as a detail- 
time specification; the next specification 
line has an L-indicator in Control Level 
(cols. 7-8) , which defines it as a total- 
time specification. Therefore, the ENDDTL 
TAG-line is the last detail-time calcula- 
tion specification. 



If, instead of blanks, an L-indicator 
were entered in Control Level (cols. 7-8) 
of the ENDDTL TAG-line, the effect would 

be— 

If indicator 20 is net on: no 

difference . 
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Explanation of Entries in Figure 44B 

The specifications in lines 02 tc 04 are 
always executed at detail time. If the ME 
(Matching Record) indicator is on, detail- 
time output follows, subsequently fcllcwed 
by total-time calculations in the normal 
manner. If the ME indicator is off, 
detail-time output is bypassed, and the 
program executes total-time specifications, 
beginning with line 10 — or a subsequent 
line, depending en the status of the L- 
indicators in Control Level (eels. 7-8) ; 
if LI. and L2 are both off, total-time out- 
put is the next operation after detail-time 
calculations. This illustrates not enly 
bypassing of detail-time output, but also 
the facility of entering into any point of 
the total-time calculations. It also 
points out that, if the status of all con- 
ditionina indicators happens tc prevent 
execution of any calculation specification 
in a cycle time-segment, total output for a 
time segment can occur without any preced- 
ing calculation operations. 
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Note: The TAG lines defined as total-time 
lines (see, for example, line C9 in Figure 
44E) by entry of an L-indicator in Control 
level (cols. 7-8) will perform their func- 
tion regardless of whether the particular 
indicator is on. 

Eranching to an External Routine 

EXIT (Branch To) 

This operation code defines a point in the 
RPG calculation specifications at which 
control of the program is transferred tc a 
designated external subroutine previously 
prepared in System/360 Model 20 machine 
language. The address for return to the 
RPG program is stored in register 14. 

Factor 2 must contain the name (the 
address) of the subroutine tc which control 
is tc be transferred. (This name is 
entered at START in the sutroutine.) The 
name may be one tc four positions long. 



The first character must te alphabetic and 
must te in col. 33; the optional (one, two, 
or three) additional characters may be 
alphabetic or numeric (special characters 
and embedded blanks are not permitted). 
The name must be unigue: it must not also 
be a field or TAG name within RPG. 

Factor 1, Result Field (and the asso- 
ciated fields for Field Length, Decimal 
Positions, and Half- Ad just) , and Resulting 
Indicators — i.e., cols. 18-27 and 43-59 — 
must all be left blank. 

The EXIT operation can be an uncondi- 
tional branch: — cols. 7-17 are then 
blank; or it can be a conditional branch — 
i.e., there are entries in Control Level 
and/cr in Indicators, cols. 7-17. 

If Control level (cols. 7-8) contains 
an entry (L0-I9, or IR) , the branch is 
executed at total time, provided the parti- 
cular L-indicator is on— and subject to the 
status of indicators that may be designated 
in Indicators (cols. 9-17) . If Control 
Level (cols. 7-8) is blank, the branch is 
executed at detail time--sub ject to the 
status of indicators that may be designated 
in Indicators (cols. 9-17). 

Position of . .EXIT. Specifications. The EXIT 
operation may be used anywhere in the RPG 
program. However, the user should be aware 
of the following considerations regarding 
four specific positions of the EXIT opera- 
tion code in the program: 

1. If the EXIT operation is the first 
detail-time calculation specification 
of the program, control will be trans- 
ferred to the subroutine upon comple- 
tion of the input routine; i.e., as 
scon as the pertinent input data has 
been placed in cere storage, ready for 
processing by detail-time calculation 
specifications . 

2. If the EXIT operation is the last 
detail-time calculation specification 
of the program, control will be trans- 
ferred to the designated subroutine 
immediately before detail-time output. 
Upon return from the subroutine, the 
RPG output routine is entered. 

3. If the EXIT operation is the first 
total-time calculation specification of 
the program, the exit to the subroutine 
takes place just after the record type 
has been determined and any control 
fields have been tested. 

4. If the EXIT operation is the last 
total-time calculation specification, 
control will be transferred immediately 
before total-time output. Upon return 
frcm the subroutine, the RPG output 
routine is entered. 
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Requirements and Rest r ictions related to 
use of external subroutines with Model 20 
card RPG: 



1. 



2. 



3. 



All subroutines to be inc 
this RPG program must hav 
in Model 20 Basic Assembl 
(using the IBM System/360 
Assembler Short Coding Fo 
and converted separately 
program) to machine langu 
Basic Assembler program, 
object-program deck is lo 
program-generation time, 
program is punched out, t 
becomes an integral part 
object deck in TXT-card f 
it is reloaded with the o 
each time it is loaded to 
particular job. 



orporated in 
e been coded 
er Language 

Basic 
rm, X28-6506) , 
(from the RPG 
age with the 

The resulting 
aded at RPG 

If the object 
he subroutine 
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bject deck 

perform the 



Since the subroutines and the RPG 
program are to be linked, the subrou- 
tines must be relocatable and all Basic 
Assembler linking conventions must be 
observed. 



a. 



Fields used in both the RPG program 
and subroutines must be defined and 
identified in the RPG program — see 
RLABL, below. 



Note: A- field cannot be defined in 
the subroutine for use in RPG; 
i.e., the ULABL statement is not 
available. 



b. 



Indicators used in a subroutine 
must be identified in the RPG 
program — see RLABL, below. 



A subroutine can have only one entry 
point, and this must be its first 
instruction . 

The subroutines must not consist of 
more than a single segment each, nor 
can control be transferred from one 
subroutine to another. 



be attempted without a comprehensive 
grasp of device instructions, device 
and program time relationships, and the 
internal logic of the RPG object pro- 
gram. Almost invariably, difficulty 
will be experienced by the user whose 
subroutine addresses any of the same 
I/O devices employed in the associated 
RPG program. 

Use of Registers in External Subroutine s 
calls for observance of the following rules 

1. Register 15 must be the base register 
for all subroutines. {The first 
instruction must be BASR 15,0 if 
instructions in the subroutine 
reference other points within the 
subroutine.) 

2. RPG automatically stores the return 
address in register 14. The return 
address is the address of the RPG 
calculation-specification statement or 
other operation to which control is to 
be returned upon completion of the sub- 
routine; i.e., the address of the sta- 
tement or operation following the EXIT 
operation. 

3. The contents of any other registers 
used within the subroutine must be pre- 
served before the subroutine is 
executed. 

Such registers must be restored to 
their original contents before control 
is returned to the main (RPG) program. 

4. Registers 12 and 13 should not be used 
if the program is ever to be run on a 
System/360 model higher than Model 20. 

Use of Indicators in Subroutines requires 
RLABL statements in RPG (see below) , and 
the following information: 

1. a. The hexadecimal representation for 
the indicator-ON condition is FO. 



Fields defined in one subroutine cannot 
be used in another subroutine. 



b. The hexadecimal representation for 
the indicator-OFF condition is 00. 



o 



Data in fields defined as numeric in 
the RPG program is transferred to a 
subroutine in packed format. Data in a 
field defined as numeric that is trans- 
ferred from a subroutine to the RPG 
object program must be in packed 
format. 

The facility for branching to external 
subroutines (i.e. , operation code EXIT) 
is not intended for the performance of 
input or output operations. 

Input or output operations via 
instructions in subroutines should not 



2. To turn an indicator OH or OFF, set the 
data located at INxx (see RLABL, below) 
to F0 or 00, respectively. 

3. To test the status of an indicator, 
examine the data located at INxx (see 
RLABL, below) for hexadecimal F0 (=0N) 
or hexadecimal 00 (=0FF) . 

RLABL (Reference Label) 

All fields that are used both in the RPG 
program and in an external subroutine must 
be defined in the RPG program. In addi- 
tion, each field used in both the RPG pro- 
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gram and an external subroutine, and each 
indicator referenced in a subroutine, must 
be especially identified in the RPG 
program. 

The pseudo-operation code RLABL desig- 
nates a specification line that identifies 
either a field used both in the RPG program 
and an external subroutine, or the code of 
an indicator utilized in a subroutine. For 
each such field or indicator, RLABL is re- 
corded in cols. 28-32 (Operation) of a cal- 
culation specification line, and the name 
of the field or indicator in the first four 
columns (cols. 43-46) of Result Field; 
Field Length and Decimal Positions are de- 
signated if the field is not defined else- 
where. All other fields in the specifica- 
tion line must be left blank. 

RLABL lines may appear in any position 
among the calculation specifications; but 
core space during object-program generation 
is conserved by grouping all of them as the 
last calculation specifications. 



A maximum total of 1 4 indi 
RPG field names — i.e., up to 
and indicators identified in 
can be used in one external s 
any field name or indicator i 
an RLABL statement may be use 
er of subroutines. (By means 
subroutine that simulates ind 
would be possible to exceed t 
14.) 



cators and/or 
14 field names 
RLABL lines-- 
ubroutine; but 
dentified in 
d in any numb- 
of a special 
exing, it 
his limit of 



The Field Name in an RLABL line may be from 
one to four characters long, beginning in 
col. 43. The first character must be 
alphabetic; the optional (one, two, or 
three) additional characters may be alpha- 



betic or numeric (special characters and 
embedded blanks are not permitted) . If the 
field name is not defined in the input spe- 
cifications, or elsewhere in the calcula- 
tion specifications, it must be defined 
here: field length must then be entered in 
cols. 49-51 and, if the field is to be 
defined as numeric, an entry (0-9) is made 
in Decimal Positions (col. 52) — see sec- 
tions on R esult Fi eld, F ield Length , and 
Decimal Position s , a bo v e . 



Field names must n 
GOTO destination addr 
duplicate the full fi 
a TAG line) ; nor may 
an RLABL line, becaus 
indicators. A table 
a field name in the R 
RLABL line; but such 
consist of more than 
(including TAB) — the 
that table in the las 
thus available to ext 



ot be identical with a 
ess (i.e., must not 
eld name identified in 
they begin with IN in 
e INxx is reserved for 
name may be entered as 
esult Field of an 
a table name must not 
four characters 
data selected from 
t LOKUP operation is 
ernal subroutines. 



An Indicator that is used in a subroutine 
is identified in the Result Field of an 
RLABL line by the letters IN in cols. 43- 
44, followed by the letters or numbers of 
the relevant indicator. In the subroutine, 
that indicator can then be referred to as 
the data located at INxx. For example, if 
the MR (Matching Records) indicator is 
tested or set in an external subroutine, an 
RLABL line with the characters INMR in 
cols. 43-46 is required; in the subroutine, 
that indicator can then be referred to as 
the data located at INKR. 

Figure 45 illustrates both RPG and Basic 
Assembler Language coding skeletons for an 
external subroutine operation. 



o 



o 
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*N0TE: Field Length and Decimal Positions of FielcL* 
need be defined in RLABL lines only if 
not defined elsewhere in RPG. 



Figure 45. Coding Skeletons for Sample External Subroutine Application 
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Table Look- Up Op e rations 

General Introduction 

Model 20 RPG provides the ability to search 
through a core-stored table — known as an 
argument table — for table data--known as 
the table argument — that bears a predeter- 
mined relationship (high, low, or equal) to 
other designated RPG data (a literal, or 
the contents of a field) — known as the 
search argument. Execution of this look-up 
operation may be conditioned by indicators 
assigned to Control Level (cols. 7-8) and/ 
or Indicators (cols. 9-17) . The status of 
one or two Resulting Indicators reflects 
the type of match attained (high, low, 
equal, or none) . These Resulting Indica- 
tors may be assigned to condition the 
execution of calculation and/or output 
specifications. 



former data still remains available to the 
program, unless an external subroutine 
instruction has p.laced other data into the 
same location. 



Tables can be in asc 
or random sequence; but 
can only be scanned for 
Any number of tables ma 
program, within the lim 
core storage space. Ar 
tables need not be in t 
nor need they have the 
(alphameric or numeric) 
storage can be employed 
table or as a function 
signment need not be un 
look-up instructions in 



ending, descending, 
unsequenced tables 
an "equal" match, 
y be used in one 
its of available 
gument and function 
he same sequence, 
same data format 

Any table in core 
as an argument 
table, and this as- 
iform for different 
the program. 



o 



If desired, subseque 
or output specification 
argument-table data tha 
signated relationship, 
data entry from another 
function table. The ta 
function data each rema 
the same tables are aga 
operation, and an appro 
match is attained; if t 
search relationship is 



nt calculation and/ 
s can call forth the 
t satisfied the de- 
and/or an associated 

table — termed a 
ble argument and 
in available until 
in used in a look-up 
priate argument 
he predetermined 
not satisfied, the 



The table name, sequence (ascending, 
descending, or random) , table-input arran- 
gement (argument and function alternating 
or separate) , and number of entries in a 
table, as well as the format of the entries 
themselves (alphameric or numeric, location 
of decimal point, size of field) , are 
defined in the File Extension 
Specifications — described in the next 
chapter. 

Tables in core storage cannot be updated 
or changed in any way by the Model 20 card 
RPG program. 
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N ote : It is possible, by means of an 
external subroutine (see EXIT, above) , to 
update tables during execution of an RPG 
program and, optionally, to punch them out 
in convenient format at object-program 
execution time. 



However, a table cannot be expanded by 
additional entries at object-program execu- 
tion time — unless its size specification 
was deliberately inflated and the table- 
input deck was padded with blank cards (see 
Number of Table Entries p er Table, in File 
Extension Specification s) . 



Tables are loaded with the RPG source 
program at program-generation time, and are 
printed out at generation time exactly as 
entered. If the object program is punched 
out, the tables form an integral part of 
the punched object deck, in TXT-card for- 
mat, so that they are reloaded with the 
object deck each time it is loaded to per- 
form the particular job. 



LOKUP (Table Look-Up) 



This op 

32, cau 

It is u 

Indicat 

designa 

argumen 

scanned 

the nam 

table) 

ciated 



eration code 
ses a table 
sed in conju 
ors assigned 
tion of a se 
t) , the name 
(argument t 
e of a table 
that is to p 
with the arg 



, entered in cols. 28- 
search to be performed, 
nction with Resulting 

in cols. 54-59 and with 
arch factor (search 

of a table to be 
able) and, optionally, 

(called a function 
rovide a function asso- 
umen t . 



The pertinent associated entries, in the 
same calculation-specification line, are: 

1. Control Level (cols. 7-8) — optional. 

a. If blank, the look-up is performed 
at detail time, subject to Indica- 
tors (cols. 9-17) . 

b. If L-indicator (LO, L1-L9, LR) is 
entered, the look-up is performed 
at total time, provided the parti- 
cular L-indicator is then on, and 
subject to Indicators (cols. 9-17) . 

2. Indicators (cols. 9-17) — optional. 

On or off status of indicators may be 
designated to condition execution of 
the look-up operation. 

3. Factor 1 (cols. 18-27): search 
argument — required. 

Enter the search argument, left-aligned 
(i.e., beginning in col. 18) . 

This may be either: 



4. 



5. 



a. An alphameric or numeric literal, 
or 

b. A field name defined in the input 
specifications or elsewhere in the 
calculation specifications, or 

c. The name of a table. A table entry 
selected in a previous LCKUP opera- 
tion may thus become a search 
argument. 

Factor 2 (cols. 33-38): argument 
table — required. 

Enter (left-aligned) the name of the 
table to be searched for data that 
bears a predetermined relationship (see 
Resulting Indicators, item 8, below) to 
the search argument. 

All table names begin with the let- 
ters TAB, followed by one, two, or 
three alphabetic and/or numeric 
characters — see File Extension Specifi- 
cations, section Table Name — 
Cols^._27-32. 

Note: Data in the argument table must 
have the same total field length and 
format (alphameric or numeric) as the 
search argument; but the decimal-point 
location (for numeric fields) need not 
be identical. No decimal alignment is 
performed by the program in a LCKUP 
operation. 



o 



Result Field (cols. 43-48) : 
table — optional 



function 



Enter (left-aligned) the name of the 
table from which an associated function 
is to be retrieved (after an appropri- 
ate table argument — Factor 2 — has been 
located to satisfy the search argument 
— Factor 1) . 

Note: The manner in which the program 
determines the function-table entry 
that corresponds to an argument-table 
entry is described below (P erfor mance 
and Result s of a Table Look-Up Op era- 
tion, part 2) . 

The Result Field is left blank if a 
corresponding function from another 
table is not needed. It may only be 
desired to ascertain whether a table 
argument of the appropriate relation- 
ship to the search argument is present 
- — as indicated by the status of one or 
two Resulting Indicators (see item 8, 
below) ; or, it may be desired to use 
only the table argument that satisfied 
a criterion of High or Low, and there- 
fore is not identical to the search 
argument. 
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6. Field length (cols. 49-51) and Decimal 
Positions (ccl. 52)--cpticr>al; may 
always be left blank. These fields 
must be left blank if no function table 

(Result Field) is specified. 

If a function table is specified (in 
cols. 43-48) , Field Length and Decimal 
Positions (if numeric) may be defined 
here. This is, however, superfluous, 
since all tables must in any case be 
defined in the File Extension Specifi- 
cations. Tf the Result Field is rede- 
fined here, the Field-Length and 
Deciiral-Positicns entries must acccrd 
with those in the File Extension 
Specifications. 

7. Half-Adjust (ccl. 53) : leave blank 

8. Resulting Indicators (cols. 54-53) — at 
least cne entry reguired (but never 
more than twc— see below) . 

The argument table (Factor 2) is 
searched fcr an entry that bears to the 
search argument (Factor 1) the rela- 
tionship designated by the assignment 
cf ere or two Resulting Indicators. 



o 
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Resulting Indicators assignments in a LOKUP 
operation have the effects itemized below: 

A Resulting Indicator assigned to Egual 
(cols. 58-59) instructs the prcgram to lo- 
cate an argument-table (Factor 2) entry 
egual to the search argument (Factor 1) . 
The indicator turns en if such an entry is 
found; otherwise, it turns off. 



Note: The status of a Resulting Indicator 
assigned to Egual cf a LOKUP oreraticr is 
not affected by a Blank-After instruction 
in the output-format specifications, ncr is 
it set on at the beginning cf prcgram 
execution. 



argument. The indicator turns on if such 
an entry is fcund; otherwise, it turns off. 

An indicator assigned tc Hiah (cols. 54- 
55) instructs the program to locate that 
argument-table entry that is nearest to, 
but hiqher in seguence than, the search 
argument. 

At least one Resulting Indicator must be 
assigned. If an indicator is assigned to 
Egual and to High, or to Egual and to Low, 
the program searches for an argument-table 
entry that satisfies either one of the two 
desiqnated conditions, with Equal given 
precedence. The indicator for the condi- 
tion that was satisfied turns on; the other 
indicator turns off--unless the same indi- 
cator is assigned to both conditions, in 
which case it will be on. If neither con- 
dition is satisfied, the indicators turn 
off. 

When several successive identical 
entries exist in the argument table, the 
first one encountered that meets the appro- 
priate search criteria is selected: for an 
Equal condition, this is the first equal 
value; for a High or Low condition, it is 
the high or low entry physically closest to 
egual, provided the table is in proper 
order. The significance of this (i.e., why 
it matters which of several egual entries 
is treated as the "hit") becomes apparent 
when function tables are discussed (below) . 

If the argument table is not specified 
to be in ascending or descending seguence, 
a search can only be made for an Equal con- 
dition. (If an indicator is assigned to 
High or low, but seguence is not designated 
for the argument table in the file exten- 
sion specifications, a warning message is 
printed at program-generation time.) 

Note: The column headings of High and Low 
for Resulting Indicators must be considered 
reversed for the LOKUP operation--f or LOKUP 

High stipulates: Factor 2 > Factor 1 
Low stipulates: Factor 2 < Factor 1 



o 



An indicator assigned tc low (cols. 56- 
57) instructs the program tc locate that 
argument-table entry that is nearest to, 
but lower in seguence than, the search 



The expanded explanations below cover 
further particulars — including the contin- 
gency of an argument table, defined as 
being in seguence, being out of order: 

1. If nc seguence is designated in the 

file extension specifications (col. 45 
or 57) --regardless of whether the table 
is actually in seguence: A (any) 
Resulting Indicator must be assigned to 
Egual (cols. 58-59) . 

Note: If no seguence is specified in 
the file extension specifications, a 
Resulting Indicator assigned to Hiah 
(cols. 54-55) or Lew (cols. 56-57) will 
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, retains its former 
ndicatcr is also 
1; if ncne is assigned 
dicatcr assigned tc 
s treated as though 
1. If no Resulting 
igned tc Egual, tut 
tors are assigned tc 
w, the indicator 

is treated as assigned 
her cne is ignored. (A 
is printed during prc- 
) 



The program searches through the 
argument table (Factor 2) until it 
either finds the first data that 
matches the search argument (Factor 1) 
exactly, or the entire table has been 
scanned—whichever occurs first. 

If a match is found, the Resulting 
Indicator assigned tc Fgual turns en; 
if no match is found, it turns off. 

Example: Search argument (Factor 1) = 
5. 
Argument table (Factor 2) = 

1, 3, 5, 5, 8, 9. 
The first (underlined) 5 is 
selected, and the Result- 
ing Indicator assigned tc 
Egual turns on. 

2. If Ascending argument-tahle seguence is 
designated in the file extension speci- 
fications: The table is assumed tc be 
leaded in ascending sequence. 

A (any) Resulting Indicator must be 
assicned to at least cne of the three 
fields (cols.- 54-55, 56-57, 58-59); but 
the same or different indicators may 
also be effectively assigned tc twe 
fields: High and Egual, or Low and 
Egual. The indicator for the condition 
that is satisfied turns on; the indica- 
tor assigned to a second condition 
turns off, unless it is the same 
indicator. 

If indicators are assigned to High 
and Egual, or to Low and Egual, Equal 
takes precedence if the Egual condition 
can be satisfied (and provided the 
table is in proper sequence) . 

a. If a Resulting Indicator is 

assigned only to Egual (cols. 58- 
59) : The lock-up operation is 
identical to that described under 
1, above. Nothing is gained by 
designating a sequence in the file 
extension specifications. 

Ixample--which illustrates the 
search for Egual through the entire 



table, even though the table is out 
of order: 

Search argument = 5. 

Argument table = 1, 2, 9, 10, 4, 5, 

' 6. 
5 is selected. 

b. If a Resulting Indicator is 
assigned only to Hiqh (cols. 54- 
55) : The first argument-table 
entry encountered which is hiqher 
in seguence than the search argu- 
ment is selected (i.e., becomes the 
data accessed whenever, thereafter, 
the table name is used as a field 
name, before another LCKUP opera- 
tion on the same table) . 

Examples: 

(i) Search argument (Factor 1) = 5. 
Argument table (Factor 2) = 1, 

3, (5), 8, 9, ... 

8 is selected as satisfyina the 
search conditions, regard- 
less of whether the entry 5 
is present in the table. 

The Resulting Indicator 

assigned to High turns on. 

(ii) Search argument = 5. 

Argument table = 1, 1, 2, 3, 3, 

4, 5, 5, 5. 

No table entry satisfies the 

search condition. 
The Resulting Indicator 

assigned to High turns off. 

But note: 

(iii) Search argument = 5. 

Argument table = 1,8, 8, 6, 5, 
6 , ... (table cut of 
seguence) 

The first (underlined) 8 is 
selected, although 6 is 
nearer to 5 in value and 
position; but the first 8 is 
the first value greater than 
5 that is encountered. 

The Resulting Indicator 

assigned to High turns on. 

c. If a Resulting Indicator is 
assigned only to lew (cols. 56-57): 
The argument-table entry that is 
nearest to, but lewer in seguence 
than, the search argument is 
selected — provided the table is in 
proper seguence. 

I-Ote: Tc generalize for any 
seguence in which the table miqht 
actually be (when ascending 
seguence is specified) : The last 
argument-table entry is selected 
which precedes the first entry that 
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O 






is either equal tc, or higher than 
the search argument. 

Examples: 

(i) Search argument = 5. 

Arqument table =1,3, (5), 8, 
9 . .. 

3 is selected as satisfying the 
search condition, regardless 
of whether the entry 5 is 
present in the table. 

The Resulting Indicator 

assigned tc Low turns on. 



Eut 


note : 


(ii) 


Search argument = 5. 




Argument table = 1, 2, 2, 10, 




3, 4, 5, 6 (table oct of 




sequence) . 




The second (underlined) 2 is 




selected, although 4 is 




closer to 5 in value and 




position. The second 2 is 




the entry that immediately 




precedes the first- 




encountered entry (1C) that 




is egual tc or higher than 




the search argument (5) . 




The Resulting Indicator 




assigned tc Low turns on. 



If Resulting Indicators are 
assigned both to High and Lew 
(irrespective of whether an indica- 
tor is also assigned tc Equal) : 
The indicator assigned tc Low is 
ignored, and retains its former 
status. (The effect of the indica- 
te!' assigned to High is explained 
above and below.) 

If Resulting Indicators are 
assigned to High (eels. 54-55) and 
Egual (eels. 58-59) : The first 
argument-table entry erccuntered 
which is either egual to, or hiqher 
in sequence than, the search argu- 
ment is selected. 



Examples: 



(i) 



Search argum 

Arqument tab 
9. 

The first (u 
encounter 
satisf yin 
tions: a 
tested fi 
an indica 
Equal . 

The Resultin 
assigned 
the indie 
High turn 
different 



ent (numeric) = +5. 
le = 1, 3, 5, 5, 7, 

rderlined) 5 
ed is selected as 
g the search cendi- 
n entry is always 
rst for Equal, if 
tor is assigned to 

g Indicator 
to Equal turns on; 
atcr assigned to 
s eff, if it is a 
indicator. If the 



same indicator is assigned 
to both conditions, it turns 
on if either condition is 
satisfied; it turns off only 
if neither an Egual nor a 
High condition was 
satisfied . 

(ii) Search argument (numeric) = 5. 

Argument table = -8, -5, -4, 0, 
+1, 3, +7, 9. 

+7 is selected, being the 
first-encountered value 
algebraically egual to or 
higher than 5. 

The Resulting Indicator 

assigned to High turns on; 
the indicator assigned to 
Egual turns off, unless it 
is the same indicator. 

(iii) Search argument = 5. 

Argument table = 1, 1, 2, 3, 3, 

4, 4. 
No table entry satisfied the 

search conditions. 
The Resulting Indicators 

assigned to High and to 

Equal turn off. 



If Resul 
assiqned 
Equal (c 
arqument 
either c 
(a) and 
However, 
first to 
the sear 
the prog 
preced in 



tinq I 

to To 

ols. 5 

-table 

onditi 

(c) ab 

each 

see w 

ch arq 

ram th 

q lewe 



ndicators are 

w (cols. 56-57) and 

8-59) : The first 

entry that satisfies 
on — as explained in 
ove — is selected, 
table entry is tested 
hether it is equal to 
ument: if hiqher, 
en selects the last 
r entry. 



Ex amples: 



(i) Search arqument (a 
N. 
Argument table = A 
— 5, $ , E, S, 5. 
-5 (=N) is selecte 
first egual enc 
an entry is alw 
first for Equal 
cator is assign 
The Besulting I 
assiqned to Equ 
the indicatcr a 
Low turns off, 
the same indica 



lphameric) = 

, +5, E, J, 

d (i.e., 
ountered) : 
ays tested 
, if an indi- 
ed to Equal, 
ndicator 
al turns on; 
ssiqned to 
unless it is 
tor. 



(ii) Search argument (alphameric) = 
N. 

Argument table = A, +5, E, J, 
J, F, S, 5. 

The second (underlined) J is 
selected: P is hiqher than 
N (in the EECEIC sequence) ; 
the program therefore 
selects the last preceding 
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lower entry. 
The Resulting Indicator 

assigned to Lew turns en; 
the indicator assigned to 
Egual turns off, unless it 
is the same indicator. 



No table entry satisfies search 

conditions. 
The Resulting Indicators 

assigned to Low and to Egual 

turn off. 



o 



But note : 

(iii) Search a 
= N. 

Argument t 
S (tatl 

E is selec 
than se 
reached 
the las 
entry, 
match ( 
table. 

The Result 
assigne 
the ind 
Egual t 
is the 



rgument (alphameric) 

able = A, E, P, E, N, 
e cut cf seguence) . 
ted: when P (higher 
arch argument) is 
, the program selects 
t preceding lower 
although an exact 
N) exists in the 

ing Indicator 
d to Lew turns on; 
icatcr assigned to 
urns off, unless it 
same indicator. 



3. If Descending argument-table sequence 
is designated in the file extension 
specifications: The table is assumed 
to be loaded in descending seguence. 

The effect of LCKUP operations is 
identical as for ascending tables (see 
2, above). The enly differences occur 
when supposedly seguential tables are 
out cf order. 



Eut note: 

(iv) Search ar 
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is the 
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5. 
, 1, 4, 5, 4, 

seguence) . 
hough there 
ue in the 
e first value 
t is lower 
is encoun- 

cator 

turns on; 
ssigned to 
, unless it 
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b. If Resulting Indicators are 

assigned to High (eels. 54-55) and 
Egual (cols. 58-59) : 

(i) Search argument = S. 

Argument table = Z, V, T, R, B 

T is selected . 

The Resulting Indicator 

assigned tc High turns en; 
the indicator assigned to 
Egual turns off, unless it 
is the same indicator. 



Examples 

a. If Resulting Indicators are 

assigned tc low (cols. 56-57) and 
Egual (eels. 58-59). 

(i) Search argument (Factor 1) = 5. 

Argument table (Factor 2) = 9, 
8, 6, 5, 5, 3, 1. 

The first (underlined) 5 
encountered is selected. 

The Resulting Indicator 

assigned to Equal turns on; 
the indicator assigned to 
Low turns off, unless it is 
the same indicator. 

(ii) Search argument = 5. 

Argument table = 9, 8, 6, 6, 3, 
3, 1, 0. 

The first (underlined) 3 
enccuntered is selected. 

The Resulting Indicator 

assigned tc Lew turns on; 
the indicator assigned to 
Egual turns eff, unless it 
is the same indicator. 

(iii) Search argument = 5. 

Argument table =9,9,8, 7, 7,6 



But note: 

(ii) Search ar 
Argument t 
K (tabl 
W is selec 
is an e 
W is th 
ceding 
seguenc 
value ( 
value ( 
before 
The Result 
assigne 
the ind 
Egual t 
is the 



gument = 
able = Z 
e out o^ 
ted, alt 
ntry S i 
e neares 
an entry 
e than t 
S) , and 
R) is en 
the egua 
ing Indi 
d tc Hig 
icatcr a 
urns off 
same ind 



S. 
, W, R, T, S, 

seguence) . 
houah there 
n the table: 
t entry pre- 

lower in 
he egual 
the lower 
countered 
1 value (S) . 
cator 

h turns on ; 
ssigned to. 
, unless it 
icator. 



Performance and Results of a Table Lcok-Up 
Operation 

1. Using a single table 

This provides indicator settings that 
reflect the success (if any) and nature 
of the match achieved (High, Low, or 
Egual) , and — if a match was achieved — 
access to the appropriate argument- 
table data selected. 
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As explained in detail above: The 
operation code LOKUP is specified in 
Operation ; 

The search argument (literal or 
field name) is entered in Factor 1 ; 

The name of the argument table is 
entered in Factor 2; 

One or two Resulting Indicators are 
assigned--to determine the type of 
match desired between the argument- 
table and the search-argument 
entries, and to reflect the result; 

An L-indicator is entered in Con- 
trol Level if the LOKUP is to take 
place during total-time calcula- 
tions; Control Level is left blank 
if the operation is to be performed 
at detail time; 

If desired, execution of the opera- 
tion is made contingent on the sta- 
tus of conditioning indicators 
entered in Control Level (cols. 7- 
8) and in Indicators (cols. 9-17) . 

When the LOKUP operation is 
terminated: 

The status of the Resulting Indicators 
reflects the result of the table 
search. 
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t of the location 
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former contents: the 
a result of a previous 
n the same table; or, 

by using that table 
field in an external 
f nothing was ever 
ield, blanks (if 
ros (if numeric) . 






Subsequent availability of data 
selected from a table in a LOKUP 
operation : 

Whenever a table name is used as a 
field name in Factor 1 or Factor 2 — in 
an operation other than LOKUP — this 



actually references the hold area for 
LOKUP-selected table data, not the 
table-storage area itself. The last 
data placed in that hold area is thus 
accessed by use of the field name in 
any other operation. 
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The argument-table name may also be 
used as Factor 1 (search argument) in a 
LOKUP operation. The search argument 
is then the data selected from the 
argument table in a previous LOKUP 
operation, or data placed in that hold 
area by an external subroutine. 

A table name must not be used in 
Result Field except in a LOKUP or RLABL 
operation. 

Note: For the format of a table name, 
refer to the File Extension Specifications, 
section Tabl e Name — Cols. 27-32 . 

2. Use of two tables in a LOKUP operation. 

All statements made for use of a single 
table (see 1, above) apply. In addi- 
tion, data in a corresponding position 
of a second table — called a function 
table — becomes available when a match 
is achieved between the search argument 
and data in the argument table. 

The name of the function table is 
specified in Result Field (cols. 43- 
48) . (If desired. Field Length and 
Decimal Positions (if numeric) may also 
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be redefined; but this is redundant, 
since they must be defined in the file 
extension specifications.) 

Note: For the format of a table name, 
refer to the File Extension Specifications, 
section Table Name- — Cols. 27-32 . 

Data in a function table need not con- 
form to the data format — field length, 
alphameric or numeric data, or decimal 
positions — in the argument table with 
which it is to be associated; nor need 
the function table adhere to the same 
data sequence as the argument table. 



The function table may contain the 
same number of entries as, or more 
entries than, any argument table with 
which it is to be associated. 

If a function table contains less 
entries than an argument table with 
which it becomes associated in a LOKUP 
operation, a warning message is printed 
at program-generation time. At object- 
program time: 

Proper function data is selected 
(i.e., made available, by the table 
name as a field name, to subsequent 
operations) if the selected 
argument-table entry is the nth 
entry (counted from the front of 
the argument table) , and n is equal 
to or less than the number of 
entries in the function table. If 
n is greater than the number of 
entries in the function table, the 
function data selected is unpre- 
dictable: it is obtained from a 
core storage location outside the 
area occupied by the function 
table. (Blanks or zeros can be 
assured in such case by increasing 
the specified size of the function 
table to match that of the argument 
table, and appending an appropriate 
number of blank cards to the 
table.) 



When the LOKUP operation is successful 
in satisfying a designated relationship 
(Equal, High, or Low — as specified in 
Resulting Indicators) between an argument- 
table entry and the search argument, the 
corresponding entry from the specified 
function table is also placed in a "hold" 
area. Thereafter, its data is available — 
in the same manner as explained above for 
the argument table — for subsequent opera- 
tions, by using the table name as a field 
name. This includes the possibillity of 
specifying that table name as Factor 1 in < 
subsequent LOKUP operation. The function 
selected in a previous LOKUP operation can 
thus serve as search argument for a subse- 
quent one. 



The f untion-table data selected for the 
hold area is determined by the program as 
follows : 



The program establishes the relative 
position of the selected argument-table 
entry (Factor 2) , by counting from the 
front of the argument table. It then 
selects, from the specified function 
table (Result Field) , the same relative 
entry, counted from the front of the 
function table. 






For example: 



Search argument = 5. 

Argument table = 1, 3, 4, 5, 5, 6, 

8. 
Function table = B, R, T, K, A, W, 

F, G, L. 
Resulting Indicator assigned to 

Equal. 
The indicator assigned to Equal 

turns on. 



The first (underscored) entry with 
5 is selected from the argument 
table for its hold area. Subse- 
quent operations referencing the 
argument-table name access that 
hold area, and the data supplied to 
the operation is the value 5. 



The first 5 is the fourth entry in 
the argument table. Therefore, the 
fourth entry — which contains the 
character K — is moved from the 
function table to its hold area. 
References to the function-table 
name in subsequent operations 
access that hold area, and the data 
supplied to the operation is the 
character K. 
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gram's consiste 
particular one 
argument- table 
5s above) affec 
entry selection 
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(If the second 5 
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name as a field 
nt function-table 
e been selected — 



Note the effect on function-table-entry 
selection when the argument table is not 
sequenced or, although supposedly 
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sequenced, is out of order: 

Search argument = 5. 

Argument table = 1, 3, 4, 6, 8, 5, 

5. 
Function table = B, R, T, K, A, W, 

I, G, L. 
Resulting Indicator assigned to 

Equal. 
The indicator assigned to Equal 

turns on. 

The first (underscored) entry with 
5 is selected from the argument 



o 



^Q^0F 
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table. This is new, however, the 
sixth (rather than the fourth) 
entry (see previous example) . 
Therefore, W (instead of K) is 
selected from the function table. 
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Examples of table lcok-up operations, 
and related calculation specifications, 
follow discussion of the File Extension 
Specif ications--next chapter. 



Points to Note for ICKUP operations 

1. Comparison between data in the argument 
table and the search argument is: 






a. 



b. 



2. 



3. 



4. 



o 



Algebraic--if the field is defined 
as numeric; i.e., negative values 
are lower in sequence than positive 
or unsigned values. 

Icgical--if the field is defined as 
alphameric; i.e., the comparison is 
tased on the EECETC sequence (see 
Figure D1, Appendix D) , and this 
sequence cannot (fcr LCKUP) be 
altered by a translation table. 



The search argument and the argument- 
table data (but not necessarily the 
function-table data) must have the same 
data fcrmat: both defined as alphamer- 
ic or as numeric, and both must have 
the same total field lenqth (includinq 
any decimal positions) ; tut the number 
of decimal places (if numeric) may 
differ between search argument and 
argument-table data. 

No decimal alignment is performed 
between search argument and argument- 
table data: the two fields are com- 
pared in their entirety. 

Table fields may have a maximum si2e of 

a. 15 positions, if defined as numeric 

b. 8C positions, if defined as 
alphameric 

Kore than one function can be selected 
for one associated argument. 



The several functions must occupy 
contiguous groups of columns which are 
jointly defined as one field in the 
function table; i.e., the length of a 
field is defined as the aggregate of 
the number of columns for the several 
function fields. 



After a I0KUP operation, the several 
functions are separated into different 
fields by MOVE and MCVEl operations. 
(See Figure 48C and Programming Tips, 
Appendix E.) 



6. Since a table is searched seguentially 
from the beainning, leck-up for an 
Egual match can be significantly expe- 
dited by creating the table with 
entries in decreasing order of freguen- 
cy of occurrence of the search argu- 
ment: the argument that occurs most 
often should be the first table entry, 
etc. (Of course, any function table to 
be associated with such an araument 
table must be organized to correspond.) 



Creating Table-Input Cards 

Table-Input, Format. A set of table-input 
cards may be devoted to 

1. Entries for a single table, or 

2. Alternating entries for two tables. 

Each set of cards representinq a sinqle 
table, or alternatinq entries for two 
tables, must be loaded toqether (and in the 
proper sequence, if sequence is relevant) 
at prcqram-qeneraticn time. The sets of 
cards for different tables must be qrouped, 
for loadinq, in the same order in which the 
tables are described in the File Extension 
Specifications. 

While it is common, when entries for two 
tables alternate in each card, that they 
represent the related arquments and func- 
tions for two associated tables, this need 
not be the case. When the tables are 
loaded, the proqram stores all entries for 
one table in one contiquous area, and those 
for another table in another area- 
irrespective of whether the two tables are 
read as alternatinq entries in one set of 
cards or from two different sets of cards. 
The association of two tables by alternat- 
inq entries in one set of cards has no 
bearinq on their serving subsequently as 
argument or function tables: any table 
that has been loaded can be stipulated to 
serve as argument table (by entry of its 
name in Factor 2) or as function table (by 
entry of its name in Result Field) in any 
I0KUP operation. 
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Entry 1 
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TABLE- 
ENTRY 
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B-A, B-A 



Separate Cards 
for Separate 
Tables 



Alternating- 
Tables Entries 
(Tables A and B) 



o 



A and B represent 
table names 
TABxxx and 
TAByyy 



Figure 46. Two Methods of Creating Table-Entry Cards 



Benefits of alternating entries for two 
tatles in cne set of table-input cards may 
lie in: 

1. Keypunching or reproducing convenience, 
if the data for the twc tables vas 
grouped in the source documents; or 

2. Assurance that, if the associated 
entries are to serve as argument and 
function, respectively, the related 
data cannot get out cf phase with each 
other if the cards should get cut cf 
crder. 

Figure 46 shows examples cf different 
techniques fcr entering twc tables. 

Eule s for Creating Table-Input Cards 

1. A table may have entries defined as 
alphameric or as numeric; tut all 
entries for one table are defined (in 
the file extension specifications) as 
cne or the other. (Of ccurse, a field 
defined as alphameric may contain num- 
eric data.) 

Fields defined as numeric are, as 
always, limited to 15 columns each. 

Fields defined as alphameric are 
limited to 80 columns each (see item 6, 
below) . 



2. Data-entries must begin in column 1 cf 
each table-input card (note Figure 46) . 

3. All cards (except the last) of a table- 
input deck must contain the same number 
of table entries. (The last card may 
contain less entries.) It is, however, 
not reguired — although usually dcne-- 
that these represent the maximum number 
of complete entries that can fit in a 
card . 

4. All entry fields in a table-input card 
must be contiguous: intervening blank 
spaces (that are net part cf the 
defined field length) are not permitted 

(note Figure 46) . 

5. fill entries for cne table must be the 
same length: i.e., the field length 
fcr one table must not vary. (Of 
ccurse, with the alternating-table for- 
mat, the fields for the two tables may 
be of different lengths.) Note Figure 
46. 

6. Entries must not be split between two 
cards. Sufficient columns must be left 
blank at the right (high-cclumn-number) 
end of each card^-if necessary — to com- 
plete an entry in a single card (note 
Figure 46, Alternating-Table Entries). 

(This precludes alphameric table 
entries in excess of 8C-column length.) 



n 
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In alternatinq-table format, the 
entries for the twc tables also must 
not he split between two cards. 

In alternating-table format, each card 
must begin with an entry for the same 
table as every other card in the set. 

Each table may be ascending, descend- 
ing, or in no particular sequence. In 
alternating-table format, the two 
tables need not be in the same 
sequence. 

Any of the 256 EECDIC characters are 
allowed in alphameric fields. Thus, 
blanks are permitted as contents of 
alphameric table-entry fields. 

Blanks within numeric table-entry 
fields are converted tc zeros (as the 
program packs the field) ; however, a 
blank in the low-order position will 
yield an invalid sign (hexadecimal zone 
4; i.e., EECDIC-table row labelled 4) — 
this will cause an abortive program 
stop if that field is used in IOKUP or 
arithmetic operations (including numer- 
ic c cm pa re) . 



10. Packed format cannot be specified for 
table- input data. 



11. The table-input cards for each table 
must 'contain, the exact number of 
entries specified in the file extension 
specifications. 

Note: Blank cards (or fields) may be 
appended (or interspersed) to satisfy a 
larger number of entries specified in 
the file extension specifications (but 
note item 9, above) . The user must 
then understand the possible effect of 
blank or zero-value entries on a ICKUP 
operation with Resulting Indicators 
assigned to High or Low. 

12. Use of the alternating-table format 
requires that both tables in the single 
table-input card deck have the same 
number of entries. (If one table con- 
tains more entries than the other, the 
equivalent of the necessary number of 
additional entries for the shorter 
table can be achieved by leaving the 
corresponding columns blank, so that 
the length of entries remains uniform.) 
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GENEEAL_INF0RM1TT0N 

Each table tc be used with the FPG program 
(see Table Lcok-Up Operations) must be 
defined in file extension specifications 
(see Figure 47) . 

Each table that occupies a separate set 
of input cards is described in the left 
portion (cols. 27-45) of a single file 
extension specifications line. 

When twc tables are recorded in alter- 
nating fcrmat in one set of cards, the 
table whose entry appears first (leftmost) 
in the table-input cards is defined at the 
left (cols. 27-45) , and the table whose 
entry appears second in the table-input 
cards is defined at the right (eels. 46- 
57) . This has no bearing en which, if 



either, of the two alternating-entry tables 
is tc serve as an argument or a function 
table. 



Columns 7-26, 43, and 55 are not appli- 
cable tc this procram. 



If several tables in separate card decks 
are involved, the decks must be loaded in 
the same order in which their names appear 
in the file extension specifications: the 
cards for the table defined in the first 
line must be loaded ahead of those for the 
table defined in the second line, etc. 
This is the only means the proaram has of 
associating a table with a specific table 
name. 
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Figure 47. The File Extension Specifications Form 
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SPECIFIC A TIONS F OR SINGLE-TABLE DECKS, AN D 
FOR FIRST TABLES OF ALTERNATING -TABLE S 
£ECKS_JCgLS i _27^451 

Tab le N am e — C ols- 27- 32 

The table name must be four, five, or six 
characters long, starting in col. 27. The 
first three characters must be the letters 
TAB; the additional one, two, or three cha- 
racters may be alphabetic or numeric (but 
not special characters or embedded blanks) . 

If a table is to be identified in an 
RLABL line, for use in an external subrou- 
tine, the table name must be exactly four 
characters long, the first three being TAB. 
This is because such a subroutine is writ- 
ten --for card RPG-- in Basic Assembler 
Language, in which names must not be longer 
than four characters. 

If data for two tables is alternated in 
a single set of table-input cards, the 
entry here (cols. 27-32) names the table 
whose data occupies the first (leftmost) 
field in the table cards. 

Number of T_able_Ent ries per Record — Cols. 
33^35 

The number of table entries per table-input 
card is recorded in cols. 33-35, right- 
justified. (The last card may contain 
fewer entries.) Recording of leading zeros 
is optional. 

If data for two tables is alternated in 
a single set of table-input cards, the two 
contiguous entries--each for one of the two 
tables--is counted here (cols. 33-35) as a 
single entry. For instance, the specifica- 
tion here (in cols. 33-35) for the 
alternating-tables (A-B or B-A) example in 
Figure 46 would be 6 (not 12) . 



entries in the table-input deck, the pro- 
gram must be regenerated. Alternatively, 
the excess area (containing blanks or 
zeros) reserved for the table by the 
program — by virtue of the blank table-input 
cards or fields and the inflated table size 
specified — may have table data placed in it 
by an appropriate external subroutine. 

Note: Since the number of entries for the 
two tables in alternating-table format must 
be equal, the specification in cols. 36-39 
is the same, regardless of which of the two 
tables is considered — the number represents 
the count of entries for one table. 

Length of Table Entr/ — Cols. 40-42 

The number of columns for one entry for one 
table is recorded in cols. 40-42, right- 
justified. Recording of leading zeros is 
optional. 

Tables defined as numeric (see col. 44) 
are limited to a maximum of 15 columns per 
entry. Alphameric table entries may be up 
to 80 columns long. 

If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (cols. 40-42) applies to 
the table whose entry appears first (left- 
most) in the table-input cards. For 
instance: for the table exemplified by the 
third sample card in Figure 46, the speci- 
fication in col. 42 would be 5; for the 
fourth sample card, it would be 8. 

Each entry in tables used as argument 
tables must have the same total length 
(including any decimal places) as the 
search argument (see Look-Up Operations, 
above) . 

Packed--Col. 43 



o 



Number of Table Entries per T able — Cols. 
36-39 

The total number of entries in the table is 
recorded in cols. 36-39, right- justified. 
Recording of leading zeros is optional. 

This value must correspond exactly to 
the number of entries in the table to be 
loaded. 

If it is -desired to allow for ultimate 
expansion of (or insertions in) the table, 
the value here ca-nbe inflated — provided an 
appropriate number of blank cards, or 
fields, representing the proper number of 
entry fields, is appended to (or inters- 
persed in) the table- input deck (but note 
R ules for Cre a ti ng Table-Inp ut Cards , item 
9, under Table Look-up in the Calculation 
Specifications, above). If data is subse- 
quently to be substituted for the blank 



Leave blank. This program does not permit 
the designating of table-input format as 
packed. 

Decimal Pos itio n s--Col. 44 

Format definition for data in the first (or 
only) table of table-input deck: 

b = alphameric 
or N = numeric, with no positions to the 
right of the decimal point 
1-9 = numeric; 1-9 positions, respec- 
tively, to the right of the deci- 
mal point. 

Entries in tables used as argument 
tables must be defined with the same data 
format (alphameric or numeric) as the 
search argument; but the defined position 
for the decimal point may differ. No deci- 
mal alignment is performed during the LOKUP 
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operation — the entire search-argument field 
is compared with an entire argument-table 
field. Therefore, if the table fields are 
not used in compare (COMP) or arithmetic 
operations, any of the codes N, 0-9 (within 
field-size limit) may be assigned to a num- 
eric field, regardless of the actual number 
of decimal places. 

Comparing between argument table and 
search argument is algebraic for tables 
defined as numeric (i.e., negative values 
are smaller than zero or than positive 
values) ; comparing is "logical" (according 
to the EBCDIC sequence) for alphameric 
tables. 

If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (col. 44) applies to the 
table whose entry appears first (leftmost) 
in the table-input cards. 

Sequence — Col. 4 5 

If the table will be used as an argument 
table, and entries are to be matched as 
"high" or "low" against the search argument 
(Resulting Indicators assigned to Eigh or 
Low in the calculation specifications) , the 
table must be defined as being in either 
ascending of descending sequence: 

A = ascending sequence 
D = descending sequence 

No check is made by the program that the 
table conforms to the specified sequence. 

If the table either will not be used as 
an argument table, or its entries will only 
be matched against the search argument for 
an "equal" condition (no Resulting Indica- 
tor assigned to High or Low in the calcula- 
tion specifications) , no entry is required 
in Sequence (col. 45) — an entry will be 
ignored . 

If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (col. 45) applies to the 
table whose entry appears first (leftmost) 
in the table-input cards. 



SPECIFICA TIONS FOR SECO ND TABLES OF 
ALTERNATING-TABLE S DECKS (COLS. 46-57) 

All fields in this right-hand portion of 
the file extension specifications have the 
identical significance as the like-titled 
fields in the left-hand portion (cols. 27- 
45) — but they apply only to the second 
table (i.e., the table whose entry appears 
second) in table-input cards with 
alternating-tables entries. 



This section is left blank for a table- 
input deck that contains entries for only a 
single table. 

Table Name — Cols. 46-51 

The name assigned to the second table in 
one table-input deck. 

L ength of Table Entry — Cols. 52-5 4 

The number of columns in an entry for the 
second table in one table-input deck. 

P acke d — Col . 55 

Leave blank. 

D ecimal Positions — Col. 5 6 

Format definition for data in the second 
table of one table- input deck. 

b = alphameric 
or N = numeric, with no positions to the 
right of the decimal point. 
1-9 = numeric; 1-9 positions, respec- 
tively, to the right of the deci- 
mal point. 

Sequence — -Col. 57 

Sequence of the second table in an 
alternating-table input deck. 

Note: There are no specifications, for the 
second table in a single table-input deck, 
for "Number of Table Entries per Record" or 
"Number of Table Entries per Table": spe- 
cifications in cols. 33-35 and 36-39 cover 
both tables in one table-input deck. 



COMMENTS — CCLS. 58-74 

The user may enter here any data he wishes 
to have printed out, next to the specifica- 
tions in the line, at program-generation 
time. Apart from this, the entries are 
ignored by the program. 

Figures 48A, B, and C illustrate file 
extension, table look-up, and related cal- 
culation specifications. In order to 
demonstrate a variety of possibilities, 
some of the examples are rather artificial 
from an applications viewpoint. 



ILLDSTRATION AN D EXPLANATION OF USE O F 
TABLES — FIGURES 48A, B. AND C 

Calculatio n Specifications — Figure 48C 

All operations shown are performed at 
detail time: Control Level (cols. 7-8) is 

blank. 
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MULTIPLE-CARD LAYOUT FORM 



Form X24-6599.0 
Printed in U.S. A. 



, Entry I & 9 



9999 

12 3 4 



99 



99 



99999 

5 6 7 8 9 



99 



99 



TAWCT TABAMT 



9 9 9 9 

10 It 12 13 



99 



99999 

14 15 16 17 18 



99 



99 99 

19 20 21 22 



9 9 999 

23 24 25 26 27 



Entry 1, 4, 7, etc. 



9999999999 99999999 

3 4 5 6 7 8 9 10 II 12 1] 14 15 16 17 18 



999999 

19 20 21 22 23 24 



9 9 9 9 

28 29 30 31 



9 9999 

32 33 34 35 J6 



9999 

37 38 39 40 



99999 

41 42 43 44 45 



9999 

46 47 48 49 



99999 

50 51 52 53 54 



99 9 9 

55 56 57 58 



99999 

59 60 61 62 63 



9999 

64 65 66 67 



99999 

68 69 70 71 72 



99999999 

73 74 75 76 77 78 79 80 



9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 7t 77 78 79 80 



Entry 2, 5, 8, etc. 



99 999 9999 999999999 

25 28 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 



9999 99 

43 44 45 46 47 48 



Entry 3, 6, 9, 12, etc. 



999999 999999999999 

49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 



999999 

67 68 69 70 71 72 



99999999 

73 74 75 76 77 71 79 80 



Figure 4£A. Table Lcok-up--Table- Input Card Format 
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caticn in Factor 1. The field 
be defined (elsewhere) as nume 
columns lcng, because TABPCT i 
(in the file extension specifi 
search argument and argument-t 
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The table is defined (in the file exten- 
sion specifications) as in ascending 
sequence. The same Resulting Indicator 
(20) is assigned to Equal and High; it s 
turns on if either condition is satisfied. 
The program first attempts to locate an 
equal entry in the table; if there is none 
in the proper seguential position, it 
chooses the closest table entry that is 
higher ir value than the search argument. 
We have assumed that bonus percent figures 
go in steps in the table; if none matches 
the exact performance percentage, the em- 
ployee is to be credited vith the nearest 
higher value. 

If an argument- table entry (say, the nth 
entry in this table) satisfies the search 
criteria specified (in Resulting Indica- 
tors) , that TABPCT value is stored in the 
hold area for this table. The entry in the 
corresponding nth position cf the table 
TABBCL (say, bonus class) --the function 
table, by virtue of its specification in 



Result Field--is also selected, and placed 
in the hold area for that table. If the 
search did not result in a "hit", neither 
hold area is disturbed. 

TAEBCL is defined (in the file extension 
specifications) as alphameric, each entry 2 
columns long, and no sequence is specified 
for the table. (The program does not veri- 
fy the sequence of the table even if 
Sequence is specified in the File Extension 
Specifications. ) 

line 02. The applicable bonus class code 
selected is to be used in output-format 
specifications; it must, therefore, be pre- 
served before the TAEBCL table is again 
employed in a LO^UP operation. 

The MCVE of TABBCI to ECNCLS transfers 
the bonus class code selected in line 01 
from the TABBCI hold area to a new field. 
TABBCL is defined (in the file extension 
specifications) as 2 columns long per 
entry, and alphameric. ECNCLS is therefore 
similarly defined (it could have been 
defined differently if there were a reason 
therefor) . 

The specification is executed only if 
the preceding operation yielded a "hit" 
(indicator 20 on). 

Line_C3. The specif icaticn of TAEECL in 
Factor 1 causes the contents of the TAEBCL 
hold area--the previously-selected (line 
01) entry from the function table TABBCL — 
to become the data for Factor 1. Since 
this is a LCKUP operation, Factor 1 con- 
tains the search argument; i.e., the last- 
selected TABBCL function-table entry now 
becomes a search argument. 
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Figure 4 8E . Table Look-Up — Table Definitions 
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Figure 4 8C . Table Look-Up — Calculation Specifications 



TABBCT is also specified in Factor 2, 
and therefore is the argument table in this 
operation. It is needed to ascertain the 
count of entries (n) to the point of match 
between the search argument and the per- 
tinent arguirent- table entry. This permits 
the program to select the nth entry frcm 
the function table (TAEAMT — say, amount of 
performance bonus) , and to place it in the 
hold area for TAEAMT. 



The comparison is logical (rather than 
algebraic), because TABECL is defined as 
alphameric. 

An exact match is reguired between 
search argument and argument table; there- 
fore, a Resulting Indicator (21) is 
assigned only to Equal. (An exact match is 
known to exist, because the search argument 
was originally derived frcm the argument 
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table.) TABBCL is not defined (in the file 
extension specifications) as being in 
sequence, because this makes no difference 
in a search confined to an "equal" match: 
the program will search through the entire 
argument table until it finds an equal 
value (if it exists) . Since alphameric 
comparison is logical, the identical EBCDIC 
character must be located (e.g., 5 * +5, 
* 0* * 0) . 

TABAMT is defined (in the file extension 
specifications) as numeric, each entry 5 
columns long, including 2 decimal places. 

The specifications in this line are 
executed only if the first LOKUP in this 
program cycle yielded a "hit" — otherwise a 
bonus class could still be in the TABBCL 
hold area from an earlier program cycle. 

Line 04. The difference is calculated 

between the bonus percent selected in line 
01 from the table TABPCT (which steps in 
increment groups) and placed in its hold 
area, and the precise performance percen- 
tage. The difference (>0) is stored as 
field DIFFR, 3 columns long, rounded to no 
decimal places — the original values con- 
tained one decimal place. The operation is 
performed only if the original LOKUP 
selected pertinent data (indicator 20 on) . 

This illustrates that there may be occa- 
sions when the entry selected from the 
argument table in a LOKUP operation is of 
interest, because it differs from the 
search argument when a Resulting Indicator 
is specified for High or Low only, and 
because it may differ when High and Equal 
or Low and Equal are designated. 

Line 05. The amount of bonus pay selected 
from table TABAMT in line 03, and placed in 
its hold area, is added to basic gross pay 
(GRSPAY) to provide final gross pay 
(FINGRS) . TABAMT is 5 columns long, 
including 2 decimal places and, therefore, 
fits in FINGRS (6 columns long, including 2 
decimal places) . 

The operation is only performed if the 
first LOKUP operation yielded a "hit" 
(indicator 20 on). Indicator 21 is not 
needed, because the second LOKUP must yield 
a "hit". 

Line 06 illustrates a numeric literal as 
search argument. Table TABL--the argument 
table — must be defined with the same entry 
length (6) as the search argument and the 
same format (numeric) — see line 03 in file 
extension specifications. Table TABL is 
defined (in the file extension specifica- 
tions) as descending. 

Comparison is algebraic: the first- 
encountered value in TABL that is algebra- 



ically smaller than -125650, i.e., negative 
and larger in absolute value, satisfies the 
criterion. (Decimal point is ignored in 
LOKUP, and its position is not counted as a 
column in field length.) If the criterion 
is satisfied, indicator 25 turns on; the 
TABL entry that satisfied the condition is 
stored in the TABL hold area, and the 
corresponding (nth) entry from table 
TAB1#2 is stored in its hold area. If no 
argument-table entry meets the specified 
condition (Low) , indicator 25 turns off, 
and the two hold areas are not disturbed. 

TAB1#2 is defined as in descending 
sequence because of another operation (line 
09) --this is irrelevant here. 

The operations in this line are per- 
formed only if no successful match was 
achieved in the first LOKUP operation (line 
01); i.e., if indicator 20 is off. 

The name TAB1#2 illustrates that the 
characters after TAB may be numeric (1 , 2) 
and/or alphabetic (# is an alphabetic 
character — see Definition of Terms ) . The 
other table names chosen all happen to be 
completely alphabetic. 

A numeric literal is used here as a 
search argument. Alphameric literals may 
also be used; the argument table must then 
be defined as alphameric, and comparison is 
logical rather than algebraic. 

Lines_02_and_08. These specifications were 
included to point out that a function table 
could include more than one function. 

Assume that each entry in table TAB1 #2 
really contains adjacent data for two 
functions — the left-hand function-1 field 
being 8 columns long and the right-hand 
function-2 field being 10 columns long, 
together forming the 18-column entries 
defined (in the file extension specifica- 
tions) for TAB1#2. The single LOKUP opera- 
tion in line 06 then supplies both func- 
tions associated with the selected 
argument-table entry. 

By MOVE and KOVEL operations to fields 
of appropriate sizes the dual-function data 
in the TAE1#2 hold area can be split, and 
made available separately. 

The operations are conditioned on the 
LOKUP in line 06 having been performed 
(indicator 20 off) and data having been 
selected from table TAB1#2 (indicator 25 
on) . 

Line 09 demonstrates the possibility of 
performing a LOKUP operation solely to 
ascertain the relationship of data in an 
argument table to the search argument, 
without use of the selected data and 
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without selection of data from a function 
table. 

The system is to halt (after completion 
of detail-time output) , and/or calculation 
or output operations are to be modified, if 
TAB1#2 (the argument table) contains an 
entry logically equal to or higher in 
EBCDIC than the contents of the field 
CRITBN. Different Resulting Indicators (H1 
and H 2) were assigned to the two error con- 
ditions being checked, to show that dif- 
ferent indicators may be assigned to High 
and Equal or Low and Equal. (That the same 
indicator may be assigned was shown in line 
01.) 

The same table (TAB1#2) is used as an 
argument table here and as a function table 
in line 06. 

TAB1#2 is defined (in the file extension 
specifications) as alphameric, and each 
entry as 18 positions long. CRITRN must 
therefore be defined identically somewhere 
(in input specifications or elsewhere in 
the calculation specifications). TAB1#2 is 
also assigned a sequence (descending) so 
that a comparison can be made for High or 
Low. 



same field lengths, formats, numbers of 
decimal places, or sequence. 



File Extension Spec ifications (Figure 48B) 
and Ca rd. Formats (Fig ure 48 A) 



O 



The tables TABPCT and TAEAMT are contained 
in one set of cards, in alternating format. 
They must therefore be defined in one line 
of the file extension specifications. 
TABPCT appears first in each table-input 
card; therefore, it must be described in 
the left portion of the file-description 
line. The same applies to TAB1#2 and TABL. 



The table TAEBCL is alone in its set of 
table-input cards; therefore, no entry is 
made in the right portion of line 02 in the 
file extension specifications. 



Note, in the calculation specifications, 
that the loading of two tables from one set 
of table-input cards has no bearing on 
whether a table is used as argument or 
function table, or which tables are related 
to each other as argument and function 
tables. 



Lin e 10 entries make data selected (in a 

LOKDP operation) from table TABL (as placed 
in its hold area) available to any external 
subroutines, by reference to the field name 
TABL. Note that the table name cannot be 
longer than H columns for this purpose. 
(For the format of a table name refer to 
File Extension Specifications, section 
Table N ame — C ols. 27- 32.) 

Lines 01, 03, and 06 also show that argu- 
ment and function tables need not have the 



Note also that, when two tables are 
alternated. in one card, one entry for each 
table is jointly considered a single entry 
for purposes of "Number of Table Entries 
per Record" (cols. 33-35) . A comparison of 
the entries in cols. 33-35 (of the file 
extension specifications) with the card 
layout form will clarify this. 

In line 03, the entry N in col. 56 — to 
define TABL as numeric with no decimal 
places — could egually well have been 0. 
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OUTP UT- FORMAT SPECIFICATIONS (OPTIONAL) 






GENERAL INFORMATION 

The output-format specifications (see 
Figure 49) serve to specify the kinds of 
output files to be produced and the loca- 
tion of the specific data fields in output 
cards and reports, and tc define the ccndi- 
ticns under which the particular output is 
to take place. 



The specifications for cutput can te 
divided into two categories: 



File identification and control--ccls. 

7-31: 

Identification of output files (output 

media) — File name; 
Stacker selection of cards; 
Forms control on the printer — Space, 

Skip; 
Segment of the program cycle during 

which the output is tc cccur (detail 

time, total time, or overflow time) ; 
Conditions under which the cutput file 

is to be created--Output Indicators. 



Field description and ccntrol — eels. 

23-70: 

Identification of fields whose contents 

are to be output — Field Name; 
Location of data fields en the repcrt 

and/or in output cards — End Position 

in Output Record; 



Format in which each output field is to 
be printed or punched — including 
Zero Suppress, Edit Word, Packed 
Field; 

Definition of constants; 

Clearing of data fields for subseguent 
operations — Elank-Af ter ; 

Conditions under which a particular 
field is to be output — Output 
Indicators; 

For cutput to cards: whether the data 
described in a particular specifica- 
tion line is to be punched or 
document-printed — End Position in 
Cutput Record. 

The Sterling Sign Position (cols. 71-74) 
applies to Sterling currency fields (Brit- 
ish monetary system) only. It is not 
covered in this manual. See IBJ^_Sv_stem/360 
Model 20, Sterling Currency Proc es sing Rou- 
tines, £ Form C 2 6-360 5. 

A File Identification occupies a sepa- 
rate specification line (or--if there are 
AND or OR lines — a group of lines) followed 
by all Field-Description lines for that 
file cutput — .one line- per output field or 
constant . 

Note: When stacker selecting input-file 
cards, rased on file matching and/or calcu- 
lation results, the file must be defined as 
combined. Therefore, a File Identification 
entry is made in the Output-Format specifi- 
cations, but it is not followed by a Field- 
Description entry. 
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Figure 49. The Output-Format Specifications Form 
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Output Indicators in a File-Identifica- 
tion line condition the occurrence of out- 
put for the entire file (i.e., the report 
or the card) ; in a Field-Description line, 
they only condition output of the particu- 
lar field, and are relevant cnly when the 
file output is executed.. 



1. Overflew output occurs at overflow 
time, following total-time output. 

2. The lower and upper feeds of the Dual- 
Feed Carriage special feature are con- 
sidered two output files; yet, under 
certain conditions, output to both 
files is concurrent. 



o 



Only output and combined files are 
entered in the Output-Format Specifica- 
tions. Files defined in the File Descrip- 
tion Specifications as input files, (I in 
col. 15) must not be entered in the Cutput- 
Format Specifications. The Printer is con- 
sidered an output file — cr, two output 
files, when utilizing the upper and lower 
feeds of the Dual-Feed Carriage special 
feature. 
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Sequence cf Specifications 

Specifications for all detail-time output 
must precede specifications for all total- 
time output. 
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However, detail time and total time 
occur at different points in the cycle. 
The conditions reflected by various indica- 
tors may differ at these different points 
in the cycle, and the data available fcr 
output may represent different cards and/or 
different stages of calculation (depending 
on the user's program). 

Detailed information is presented in the 

earlier section titled Program. I eg ic „ Flow , 

and in Figure 6: RPG Program logic. 



Within the grouping of detail time and 
total time, the seguence of output opera- 
tions corresponds to the seguence of the 
output-f crmat specif icatiens lines. There 
are three exceptions: 



3. Data for card printing is transferred 
to the output data-stcrage area after 
the transfer of data for punching of 
the same card. This need concern the 
user only when Blank-After is specified 
for such a field. 

These divergences will be further clari- 
fied later. 

Each File-Identif icaticn line (or qroup 
of lines, when there are AND or OR lines), 
together with its subordinated Field- 
Description line (s) , if any, represents one 
file output operation. (Punching and 
document-printing in the same card are 
parts of a single file-output operation.) 

If there are several separate File- 
Identification (and groups of Field- 
Description) lines for the same output file 
at different points in the output-format 
specifications — and the status of any Out- 
put Indicators assigned calls fcr perform- 
ance of several of these output-file spec- 
ifications in one program cycle — the same 
output file is acted upon several times in 
the same program cycle. This has the fol- 
lowing effect: 

1. If the output file is the printer — 
printing occurs several times. If 
spacing and skipping between lines is 
suppressed, the successive printing is 
en the same line of the form. 

If spacing or skipping between lines 
is specified, the printing is en sepa- 
rate lines of the form. This is the 
normal method to accomplish, for 
example: 

a. Printing of group totals below 
detail item lines. (Usually, the 
detail items are printed at detail 
time and the totals at total time, 
but this need not be so.) 

b. Printing totals of different levels 
en different lines (for instance, 
the L2-level total under the 11 
total) . 



Note: A print line conditioned by 
12 as Output Indicator is not 
printed later than (or under) a 
print line conditioned by LI, 
unless the File-Identification line 
conditioned by L2 appears later in 
the output-format specifications 
than the L1 File-Identification 
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line: within one cycle segment 
(detail time or total time) , the 
sequence of output operations 
adheres to the specifications-line 
sequence. 

There is no such event — as with 
Unit Record accounting machines — as 
major-total output automatically 
preceded by intermediate, preceded 
by minor. By proper assignment of 
Control-Level indicators (cols. 59- 
60, Input Specifications) , indica- 
tor L3 can be made to represent the 
equivalent of a major control 
break, L2 an intermediate one, and 
L1 a minor one. However, the pro- 
gram does not recognize the dif- 
ference between L-indicators of 
different levels, or between L- 
indicators and other indicators, as 
related to a particular class of 
total: any indicators may be 
assigned in Output Indicators 
(cols. 23-31) to condition the 
execution of an output- 
specifications line. Therefore, if 
L2 represents the equivalent of a 
total class higher than L1., and the 
L2 totals are to be printed unde- 
rneath the L1 totals, the File- 
Identification and Field- 
Description Specifications condi- 
tioned by the L2 indicator must 
appear later than those conditioned 
by L1 (if both apply to the same 
cycle segment) . 



Printing of several lines from one 
input card; for instance, name and 
address on three lines from a 
single input card. 



Printing form 
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File-Identifi 
the normal si 
taken not to 
some data twi 
is discussed 



s-overflow identifica- 
ccurs at overflow 
same output file (the 
lso specified (say, 
ication) by another 
cation line — which is 
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ce. (This situation 
further, below.) 






2. If the output file consists of cards 
(output or combined file) — successive 
cards are punched, document-printed 
and/or stacker selected. (See M ultip le- 
T ime Out p ut to Cards during One Program 
Cycle , under Program Logic Fl ow.) 

Therefore, all output operations-- 
punching, card-printing, stacker- 
selection — pertinent to one card must 
be included in a single File- 
Identification line (and its related 
Field-Description line (s) ,, if any) . 

If multiple output is required during 
the same cycle segment to each of several 



files, faster throughput may be obtained, 
through maximization of overlap, by alter- 
nating the output specifications for the 
files. Assume for instance: . 
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E.g.: Specifications for output of L1 

totals to printer; then 
Specifications for output of L1 

totals to card file; then 
Specifications for output of L2 

totals to printer; then 
Specifications for output of L2 

totals to card file. 

Note: Even if no card punching is 
required at the L2- level, it is still 
advantageous to interpose the L1-level 
card-punch specifications between the 
L 1- and L2-level printer specifica- 
tions. 

Figure 4 shows which operations can be 
carried out concurrently. 



S pe cifyi ng Output Units 

Each file name is associated with a parti- 
cular input, output, or input/output unit 
(or device) by the entries in the File 
Description Specifications. Designation of 
a file name in the output specifications 
therefore suffices to determine the file to 
be operated upon. 



Organizing for Output-Format Specifications 

Writing the output- format specifications 
becomes a simple task if the user has first 
analyzed his report and output-card 
requirements and laid out 

1 . The printed report (if relevant) on a 
Printer Spacing Chart (IBM Form X2U- 
3115 — see Figure 1), and 
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2. The format of any output-file cards on 
one of the many card layout forms 
available (e.g., see Figure 48 A). 



FILE IDENTIFICATION AND CONTROL— COLS. 7-31 

One File-Identification line (or group of 
lines, when there are AND or OR lines) is 
to be specified per output operation per 
output file. Each such File-Identification 
line (or group of lines) is followed by all 
Field-Description lines pertinent to that 
output operation. 

Note: When stacker-selecting input-file 
cards, based on file matching and/or calcu- 
lation results, the file roust be defined as 
combined. Therefore, a File-Identification 
entry is made in the Output-Format specifi- 
cations, but it is not followed by a Field 
Description entry. 

File Name— Cols . 7-14 

Each output file is given a separate name 
by the programmer — and the same name must 
be used for that file in the File Descrip- 
tion Specifications, to associate the file 
name with a particular I/O device. The 
same name must not be assigned to more than 
one file. However, when a card file is 
used both for input and output, it is 
termed a "combined" file, and the same file 
name is entered both in the Input and the 
Output-Format Specifications. A file name 
must begin in col. 7 with one of the 29 
alphabetic characters, and may continue 
with alphabetic or numeric characters (but 
not special characters or embedded blanks) ; 
it may be one to eight characters long. 
(Further details on files and file names 
appear under Input and Output Files, in 
Intro duction--R PG Functi o ns and Characteri- 
st ics ; Definitio n of Terms; and File 

De scription Specification s. ) 
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Type — Col. 15 



The mnemonic code letter entered here des- 
ignates the type of output record being 
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specified. 

The following three entries can be made. 



H = Heading-line output 
D = Detail-time output 
T = Total-time output 



Note: Code H and code E are distinguished 
only for the user's convenience. The RPG 
program treats both specification types in 
the same way. No "Type" entry is made in 
an OR line; the same type code is assumed 
to apply. 



All detail-time output (Type D) must be 
specified ahead of all total-time output 
(Type T) . 



^••i^ 



Reference to RPG Pro gram Logic 
6) makes it apparent that detail- 
put will most-commonly deal with 
and/or to individual detail cards 
listing from detail cards, printi 
results of detail calculations, o 
into detail cards; whereas total- 
put lends itself best to printing 
punching of totals at the end of 
groups, when data from the next c 
yet available. However, the use 
time and total-time outputs is by 
thus restricted — comprehension of 
program cycle (with its attendant 
flow, indicator relationships, an 
movement) permits other arrangeme 
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Stacker Select — Col . 16 

Stacker Select applies only to card files. 
(If a Stacker-Select entry is made in the 
File-Identification specifications for a 
Printer output file, it is ignored.) 
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format specifications--sub ject to certain 
rules listed below. Figure 24 (Input Spec- 
ifications) itemizes the normal and. addi- 
tional stackers for card input/output units 
with multiple stackers, and the associated 
stacker-select codes. For single-stacker 
I/O devices, Stacker Select should be left 
blank (however, any entry is simply ignored 
by the program) . 

Note _1 : When stacker 5 is designated, but 

the I/O device referred to is the 2560 MFCM 
Model A2, the card is directed to stacker 
4. 



Iote_2: In the case of the IBM 2520 Card 
Punch or Read-Punch, cards with punch 
errors are automatically directed to stack- 
er 2 — the non-normal stacker — by the 
system. 



o 



Rules for Stacker Selection 

Inpu t-^File cards can only be stacker- 
selected by an entry in the input 
specifications. 

Stacker selection of input-file cards, 
based on file matching and/or calculation 
results, is possible. In this case, how- 
ever, the file must be defined as combined 
and the file name entered in the Output- 
Format specifications. 

Note: It is also possible to perform 
stacker selection on input-file cards, 
based on file matching and/or calculation 
results, by means of the EXIT operation 
code and BAL subroutines (see Program m ing 
Tips, Appendix E) . 
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specifications. The following criteria 
must be observed: 



1. The same card type must not have 

stacker-select instructions in both the 
input and output-format specifications. 



2. If any output operation (punching and/ 
or card-printing) is to be performed on 
cards of a type, any stacker selection 
to be designated for that type must be 
in the output specifications. 

Therefore, card types for which 
stacker selection is designated in the 
input specifications must not have any 
output operations specified. When out- 
put File-Identification specifications 
are written for a file, any cardtype (s) 
within that file that had an input 
stacker-select specification must be 
eliminated from output operations by 
appropriate designation of Output Indi- 
cators (cols. 23-31) — otherwise, output 
is to the next card and that next card 
is never read. 

For example, assume: 

a. File DETAIL contains three card 
types to which card-type Resulting 
Indicators 10, 11, and 12 were 
assigned in the input specifica- 
tions; and 

b. Type 11 has a stacker-select 
instruction in the input specifica- 
tions; then: 

Only types 10 and 12 may have out- 
put operations specified; the entry 
N11 in cols^—23-25 is the simplest 
way to accomplish this. 

3. If stacker selection is to be based on 
the status of any indicator except card 
type (such as MR, or one reflecting the 
results of calculations) , it must be 
designated in the output 
specifications . 

Stacker selection based on matching 
of files (matching records) requires 
that the file be defined a!s a combined 
file. (But see Programming. Tips, 
Appendix E, for BAL subroutines to 
accomplish this with Input Files.) 

4. If no entry at all appears in the 
output-format specifications for a 
combined-file card, and no stacker 
selection is specified for that card in 
the input specifications either, the 
card enters the pertinent normal 
stacker. 

Note: See also further Stacker-Select 
information for combined files under 
lJLEH±_ S£€5c_i f ic a t ip ns . 



Output-Format Specifications (Optional) 171 



Stacker selection at total-output time 
(Type T in ccl. 15) causes selection cf the 
"next" card. At this time: 

a. Data from that new card has not yet 
been available for calculation, and 

b. The Matching-Reccrd indicator still 
reflects the status cf the previous 
card, and 

c. Field Indicators 'till represent 
the previous card; but 

d. The card-type Resulting Indicator 
fcr the new card is on — that for 
the old card is off, and 

e. If the eld card was the last cf a 
ccntrcl group, the pertinent L- 
indicators are already on. 

(See RPG Program L og ic , Figure 6 . ) 

A card's position as the last of a con;- 
trcl_c[rou_p_ can net be recognized by RPG as 
a criterion in time for stacker selection 
cf that card. (The PLACE card in the 
Punched-Card Utility Collate Program pro- 
vides for this; or, the RPG program may 
branch, ty operation code EXIT, to a 
B.A.L. subroutine to accomplish this 
selection--see Programming Tips, Appendix 
E.) 

Stacker Selection of matched cr 
unmatched cards in a file-matching applica- 
tion, based on the status of the MR indica- 
tor (see Output Indicators, below) , should 
be specified for detail-time output (Type D 
in col. 15). The MR indicator then 
correctly reflects the match status of the 
card that would be selected. At total time 
for a new card, the MR indicator reflects 
the match status of the preceding card. 



Stacker selecti 

£iii_l£i^£i!£ors i be 
that for the basic 
ifications line, 
selection fcr any 
is blank, the card 
enter the normal s 
number is specific 
stacker. (But see 
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en for 0R_ lines (see Out- 
low) is independent of 
File-Identification spec- 
It behaves like stacker 
ether line: if ccl. 16 
s defined in the OR line 
tacker; if a stacker 
d, the cards enter that 

item 3 under Stacker 
i- n Input Specifications. ) 



Space, Skip — Cols. 17 and U 
and 21-22 



Cols. 19-20 



These fields are left blank in File-Identi- 
fication specifications fcr card files. 

The Space and Skip fields provide fcr 
printer forms-movement control. They apply 
each "time the particular printer-output 
File-Identification specifications are 
executed, even when: 



1. The particular printer output specifi- 
cations are repeated during the same 
program cycle--by a GCTC operation (see 
Calculation Specifications) ; or 

2. No data is actually printed, because 
the status of the particular Output 
Indicators assigned in the individual 
Field-Description specifications lines 

(see below) prevent printing of all 
associated fields cr constants. 

If the printer is the IBM 2203, and the 
Dual-Feed Carriaoe special feature is 
installed, forms control applies only to 
the forms carriage with which the particu- 
lar File Name is associated (through the 
Device Code in the file description 
specifications) . 
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if an OR line is blank 
s-control fields, the 
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le-Identif ication line 
e output entry) with 
are applied by the pro- 
line. If there are 
ns in these fields in 

File- Identification 
nes) cf that file- 
eld is considered to be 
too. 



Note that a zero (in contrast to blank) 
in any of the columns 17-22 in an OR line 
prevents application to the OR line of 
Space or Skip specifications from a preced- 
ing file-identification line. If at least 
one of the cols. 17-22 in an OR line con- 
tains a zero, and the remainder are zero or 
blank, no spacing or skipping takes place, 
before or after, when output is based on 
the OR line. 

There must be no Space or Skip entries 
in an AND line. 



Note: Relationships between Space and Skip 
specifications are discussed at the end of 
this section. 

Space, Before — Col. 17 

The paper form in the printer is advanced 
0, 1, 2., or 3 lines before printing by en- 
tering 0, 1 r 2, or 3, respectively, in col. 
17 of the pertinent File-Identification 
specifications. 

A blank in col. 17 has the same effect 
as entering a 0; i.e;., no space before 
printing. 

Space, After — Col. 18 

Equivalent to Col. 17, but controls line 
spacing after printing. 
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Skip, Before — Cols. 19-20 
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Card (card H) contains a E in Col. 
11, which suppresses program list- 
ing during generation (see the 
Operating Procedures manual) . 
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A leading need not be recorded with 

this EPG; i.e., *1 = 01. 

00 is treated as equal tc bb 

Skip, After — Cols. 21-22 

Equivalent to cols. 19-20, but ccntrcls 
forms skipping after printing. 

Points tc Note 

1. If the user's application offers a 
chcice 

a. Eetween Space/Eefcre and Space/ 
After, Space/After should be em- 
ployed; or 

h. Eetween Skip/Before and Skip/After, 
Skip/After should be employed. 

Forms movement after printing cf a line 
usually gives better throughput: it 
permits overlap cf subsequent proces- 
sing with the forms movement; whereas, 
if fcrms movement takes place ahead of 
printing of a line, execution of the 
print instruction has to await comple- 
tion cf forms movement. 

2. Line spacing may be stipulated for both 
before and after printing of a line. 
Thus, a maximum cf 6 line spaces (i.e., 
5 intervening blank lines) may be 
achieved between successive print lines 
without skipping. 

3. Forms skipping may be stipulated for 
both hefore and after printing cf a 
line . 

<4. If Space/Before and Skip/Before are 
both stipulated for the same print 
line: the Skip is executed first, fol- 
lowed by the Space operation. 

5. If Space/After and Skip/After are toth 
stipulated for the same print line: 
only the Space operation is executed. 

6. A forms advance to the next carriage- 
tape channel-1 punch is automatic: 

a. At the conclusion cf program 

generation — unless the EPG Control 
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7. Successive printer outputs can be 

printed on the same line of the printer 
form (i.e., without intervening forms 
movement) by appropriate space and skip 
specifications cf blank or zerc, tc 
effect "space suppression": if cols. 
17-22 are blank or zeros, no spacing or 
skipping cccurs before cr after the 
line is printed (but see distinction 
between blank and zerc for OR lines, 
above) . 

Note however that, if the multiple 
outputs — intended for a single line on 
the printer form — cccur durinq dif- 
ferent program cycles, they may become 
separated to different pages: the 
automatic forms advance operates as 
described in item 6 (t) above, even 
though all space and skip specification 
fields for these outputs may be zero or 
blank. 
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If the multiple outputs to one 
printer line are in the same program 
cycle, no autcmatic fcrms advance can 
separate the lines (since the autcmatic 
advance to the channel-1 punch takes 
place cnly after total-output time) . 

8. A Skip (by a specification in cols. 
19-2C or 21-22) past a carriage-tape 
channel-12 punch — i.e., frcm a point on 
the page higher than the channel-12 
punch--has the following effects: 

a. If the ship is tc cr past a 

channel-1 punch: The overflow 
indicator (OF or OV) is not turned 
en. 

t. If the skip is tc a carriage- tape 
punch in any channel other than 
channel 1, and a channel-1 punch is 
net passed or rea-ched during this 
skip: The overflew indicator (OF 
or OV) is turned en, after the line 
at or past channel 12 has been 
printed. 

9. Cnce a line has been printed at or be- 
low the point at which a carriage- tape 
channel-12 punch was sensed, an inter- 
nal switch is set which will cause the 
overflow indicator (OF or OV) tc turn 
cn st_the_end_cf (not during) that 
cycle-segment output time. It cannot 
be turned off by a skip-to-chanr el-1 
specification (contrary to the situa- 
tion described in 8 (a) above) . 
Therefore : 
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10. If it is desired to cause the overflow 
indicator (OF or OV) to turn on (at the 
end of the program cycle-segment) , so 
that overflow output can be performed 
after total-time output — but it is 
necessary to skip to channel 1 from a 
point on the page higher than the 
channel-12 punch — two Skip specifica- 
tions are reguired: first skip to 
channel 12, then to channel 1. As 
explained in item 9, above, the skip to 
channel 1 will net turn off the over- 
flow indicator, cnce it has been sig- 
naled to turn on by sensing of the 
channel-12 punch. 
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Output Tndicatprs--Cpls. 23-31 
(File-Identification Specifications) 

Indicator codes entered in these fields 
determine the conditions under which the 
output operations defined in this File- 
Identification specifications line, and in 
its subsidiary Field-Description specifica- 
tions lines, are to be executed. 
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Note that Output Indicators in the File- 
Identification specifications line control 
the occurrence of that entire output--not 
of a particular field. (Output Indicators 
may also te assigned to individual fields. 
This is discussed under Field Description 
and Cent re 1, belcw.) 

Absence of an entry calls fcr execution 
of that output at detail time or total 
time — D (or H) or T, respectively, in col. 
15 (Type) — each program cycle. Ncte that 
detail tiite includes detail- cutput time 
before the first card has been read (when 
the 1P indicator is en). 

Any indicator — except OF or OV (dis- 
cussed separately below) — may be entered in 
cols. 24-25, 27-28, or 30-21 tc instruct 
the program to execute the particular out- 
put specifications only if that indicator 
is on at that time (detail time or total 
time, as determined by the entry in col. 
15) . If an N (=Not on) is entered in the 
column preceding the indicator cede (ccl. 
23, 26, cr 29, respectively), the output is 
performed only if that indicator is net on. 

Note: Any FECDIC character ctVer than N in 
ccl. 23, 26, cr 29 has the same meaning as 
a blank. 

The tl-ree fields (eels. 23-25, 26-28, 
29-21) are identical in function. If less 
than three cenditicning indicators are 
assigned, it does not matter which cf the 
three fields are used. Up tc three dif- 
ferent cenditicning indicators may be 
designated in one File-Identification spec- 
ifications line. All indicators assigned 
to one line are in an AND relationship to 
each other; i.e., the conditions for all 
indicators in the line must be satisfied 
for the cutput tc be performed. Each cf 
the several indicators may individually be 
reguired tc be en or net en (N) as a condi- 
tion of performance cf the output 
operation. 

If more than three Output Indicators in 
an AND relationship are needed to condition 
an output operation, additional lines may 
be used, each able to accommodate up to 
three more indicator entries. Such lines 
must be immediately below the initial File- 
Identification specifications line for the 
particular output. They must be blank 
except fcr the wcrd AND reguired in cols. 
14-16 and the desired entries in Cutput 
Indicators (cols. 23-21) . 

Different Output Indicators may be 
placed in an OB relationship to each other; 
i.e., the cutput operation is tc be per- 
formed if any cne cf several indicator cri- 
teria is satisfied. A separate File- 



Identif icaticn specifications line is used 
for each OF line, and placed immediately 
beneath the initial File-Identification 
line (or any AND or OR lines) for the par- 
ticular output. The word OB is entered in 
cols. 14-15, the desired indicators in Out- 
put Indicators, and--cptionally — Stacker 
Select and forms control instructions in 
cols. 16-22. 

Eoth AND or OB relationships may be 
specified in conjunction with each other — 
i.e., the output operation is to be per- 
formed if any one cf several combinations 
of indicator conditions is satisfied. 



When there are AKE or CE li 
cutput operation, then every A 
every OB line, and the initial 
Identification specifications 
cutput operation must each hav 
one entry in Output Indicators 
indicators for successive line 
relationship are not ccmpletel 
exclusive, the program execute 
fications (Stacker Select and 
trol, if any) of the first lin 
cator criteria are satisfied ( 
of the Cutput Indicators speci 
CF or OV , for the lower or upp 
respectively — see below) . 
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Entries in Output Indicators utilize 
indicators only to condition the execution 
of an operation--they do net set them as 
Resulting or Field Indicators. Therefore, 
the use cf an indicator in Output Indica- 
tors never changes its status (on or not 
on) . An Indicator applied in Output Indi- 
cators reflects the status (.on or not on) 
it previously assumed: 

1. As card-type Resulting Indicator, or 

2. As Field Indicator, or 

3. As calculation Resultinq Indicator, or 

4. As Control Level indicator, or 

5. As Hatching Fields indicator (MR), or 

6. Throuah a SETON or SETCF instruction, 
cr 

7. As its initial status at the beginning 
cf program execution — if never changed, 
or 

8. As a result of a Elank-After output 
instruction, or 

9. As a censeguence of forms-control 
carriage-brush sensing of a carriaqe- 
tape channel-12 punch — if OF or OV 
indicator. 
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The status of an indicator may have a 
different significance at detail time and 
at total time — for example: 



(a) 



(b) 



It may reflect different cards. For 

instance: 

At total time, the ME indicator and 

Field Indicators reflect the previous 

input card whereas L-indicators and 

card-type Resulting Indicators already 

reflect the new input card; or 

Its use may have a different effect. 
For instance, with L-indicators em- 
ployed in the normal manner, with Con- 
trol levels: 

An L-indicator in Output Indicators of 
a total-time output operation (T in 
col. ^5), makes printing or punching 
at total time contingent on occurrence 
of a control break of that or higher 
level — the standard method for program- 
ming output of group totals or of spec- 
ifying a group-printed report; but 



An I-indicator in Output Indicators of 
a detail-time output operation (D or H 
in col. 15), makes printing or punch- 
ing at detail time contingent on a pre- 
ceding ccntrcl break of that or higher 
level — a method for prcgramminq group- 
indication (printing identifying data 
only from the first card of a control 
group) . 

For details on indicators, see also Pro- 
3L a m _L 03 i c_F 1 o w , RPG„Pro£ram Logic , (Figure 
6) 1 Indicators, Indicator Hierarchy, and 
Matching. .of Files, all under Programming 
for RPG— General ., Information; Resulting 
Indicators, Field Indicators, Control l ev el 
and Matching Field s, all under Input Speci- 
fications; and Indicators and Res ult - 
Testing Fields, under Calculation 
Sp ecif ic at ionSj. 
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for the first control group when the 
control fields of the first group con- 
tain no significant data. (See Special 
Consideraticns_f or_Indicators_L_1-L9_on 
"Run-In" , under Indicators £ in the sec- 
tion Programming for RPG; — General 
Information. ) 

A technigue for circumventing any 
such problem is presented in Program- 
ming Tips^ Appendix E. 
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igures 50 A and B illustrate specifica- 
s for File Identification and Control, 
orarily excludinq the OF and OV indica- 
(discussed next) . The reader is asked 
ssume, for purposes of this illustra- 
, that each File-Identification speci- 
ticns line (or group of lines, when 
6 are AND or OR lines) is followed by 
east one Field-Description specifica- 
s line (discussed later) . 
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Figure 50A. Simple Examples of Entries for 
File Identification and Con- 
trol (Excluding OF and OV 
Indicators) 



Explanation of Entries in Figure 50A 



REPORT* 1 is associated with the printer; 
H in col. 15 (Type) specifies detail 
time (a D, instead of H, would have been 
synonymous) ; 

The 1P indicator is on at the beginning 
of program execution, and is turned off 
by the RPG program itself immediately 
after the first card has been read. 

Thus, the output is limited to printing 
at detail time, before the first card has 
been read; i.e., the first detail-output 
time only. The Field-Description specifi- 
cations following this File-Identification 
line are assumed to contain constants, to 
be printed as headings across the first 
print line of the first page. 

If 1P were not specified, but Output 
Indicators left blank, the heading con- 
stants would be printed at detail-output 
time of every program cycle. 

Skip/Before to the next carriage-tape 
channel-01 punch is specified, to make sure 
to start at the top of a fresh page. After 
the heading, the form is advanced 3 lines, 
so that two blank lines intervene before 
the first detail-data line. 



Line 3 calls for printing the data in the 
fields presumed to be designated in Field- 
Description specifications beneath this 
line. The file name (REPCRT#1, cols. 
7-14) need not be repeated, because no 
other file name intervened--but it may be 
repeated . 

This output is at detail time (D in col. 
15 — H could have been used instead) ; 

The output is suppressed if the H1 and/ 
or the 1P indicator is on. NH1 was 
arbitrarily chosen to point out that 
H1 might be assigned to an error con- 
dition, to halt the system after 
detail-output time, and the same indi- 
cator can conveniently be utilized to 
suppress output. If NIP were not 
assigned, the output would also occur 
before the first card has been read. 






As su mptions : A straight listing is 
desired, with two classes of total and 
grand total. Headings of constant data are 
to be printed on one line across the tcp of 
the report on the first page. At each 
Ievel-1 control break, a summary card is to 
be punched. The printer has been assigned 
(in the file description specifications) 
the file name REP0RT#1, and the card punch 
device has the file name SUMCARD. 



Sp ecification line 01 causes printing only 
at detail time and only before the first 
data card has been read: 



The 1 in ccl. 18 causes single spacinq 
after each detail-output line. 



Line 05 causes printing at total time (T in 
col. 15), provided the L1 indicator is on. 
This is the normal method for printing 
totals at the end of a ccntrcl group of 
Level 1. The file name need not be 
repeated, even though this specification is 
for total-time output and the previous one 
was for detail time. 

To offset the total line from a arcup of 
preceding detail lines, a Space/Before is 
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specified. This creates one blank line 
between the last detail line (where 1 
Space/After was specified) and the I1-total 
line. After the Li-total line, the form is 
advanced 2 lines, to leave a blank line 
before the next detail line. 



Throughout, note that (1) all detail-output 
specifications must precede all total- 
output specifications, and (2) Space and 
Skip are forms-control specifications and 
can, cf course, only be entered in File- 
Identification lines for printer output. 



o 



Line 07 directs the program to punch a card 
(SUMCARD is associated with a card output 
or combined file) at total time, if the L1 
indicator is on— a standard , method cf 
punching group totals into summary cards. 
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line 09 causes printing at total time, pro- 
vided indicator 12 is on. This is the 
normal method for printing totals at the 
end cf a ccntrcl group of Level 2. 

Because this output File-Identification 
specifications line is belcw the LI line, 
the L2 total. will be printed below the LI 
total. If the specif icaticns in line C9 
were to precede those in line 05, then — at 
every ccntrcl break cf Level 2--the L2 
totals wculd be printed ahead of the 11 
totals; within the same program cycle seg- 
ment (detail or total) , the operations for 
the same cutput device are executed in the 
order in which the specifications appear in 
the cutput-f prmat specifications (see 
Se£uence_of_S£ecif ications, above) . 



After every L2-level printer cutput, the 
forms-ccntrol-carriage tape advances to the 
next channel-1 punch, i.e., the top of a 
new page. 

The file name REPORT* 1 must be recorded 
because cutput tc another file (SUMCARD) 
intervened. 



Line 1 1 is equivalent to lines 05 and C9, 
but is operative only when the Last Record 
indicator is on. Final totals are printed 
en a predetermined line (Sfcip/Bef ore tc 
carriage-tape channel 10) , and a Skip/After 
to the top of a new page takes place after 
printing. The file name is the same as for 
the preceding output and therefore need not 
be repeated. 
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Figure 50B. Further Examples of Entries 
for File Identification and 
Control (Excluding CF and OV 
Indicators) 



Explanation of Entries in Figure 50B 
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its cards are to be stacker-selected on the 
basis of the MR indicator — which must be in 
the output specifications. The Files are 
matched (Matching Fields--M1) on stock 
number. 

The file INVNTBY is associated with the 
printer. The File Description specifica- 
tions call for turning the LR indicator on 
when both card files are exhausted. 



Specifi c ation line 01 causes printing only 
at detail time (D in col. 15 — H would have 
had the identical effect) , and only before 
the first data card has been read (1P in 
Output Indicators) . (Heading data, in the 
form of constants, is presumed to be con- 
tained in the Field-Description specifica- 
tions.) Before the line is printed, the 
form skips to the top of a new page (01 in 
cols. 19-20) ; and after printing, the form 
advances to the next carriage-tape channel- 
2 punch (02 in cols. 21-22) . 



^^A 
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Indicators MR and 21 and 40 and 62 are 

all on; or 
Indicators MR and 21 and 14 are all on, 

and indicators 40 and 62 are both off. 

These are presumed to be two types of item- 
order detail cards, to be processed alike. 
Both types are selected to stacker 3 (by 
entry of different stacker numbers in lines 
06 and 08, the two types could be directed 
to different stackers) . 



Line 11. All item-order detail cards (say, 
card-type Resulting Indicator 21) should 
have a matching inventory master card 
(OLDBALCE file) . If there is no master 
(indicator condition NMR) , either a master 
card is missing or the detail card is 
punched with a wrong stock number. The 
detail card Is directed to the normal 
stacker (col. 16 blank) for the MFCM 
secondary hopper, to be investigated. 

A second indicator specification 
(besides NMR) is required (card type 21 was 
used) to prevent performance of this output 
before the first data card has been read 
and each time an OLDBALCE card is pro- 
cessed, and to distinguish this card from 
the blank card (see line 13) at the end of 
each stock-number detail-card group. 

The file name (cols. 7-14) need not be 
repeated, because no other file name 
intervened. 



^m^Jf 



Lines 03, 04 and 13 jointly have the effect 
of selecting out (to stacker 1) old inven- 
tory masters (line 03) that are being 
replaced by updated new ones (line 13) ; but 
directing to stacker 2 those old inventory 
masters for which no new ones are being 
created (line 04) . At the conclusion of 
the job, stacker 2 contains the updated 
complete inventory master-card file: 
newly-punched updated cards to reflect 
transactions, plus old masters for items on 
which there were no transactions. 

Besides MR and NMR, respectively, the 
card-type Resulting Indicator (05) assumed 
to have been assigned to the OLDBALCE cards 
in the input specifications is also speci- 
fied here — otherwise, in every program 
cycle in which a TRSACTNS card is pro- 
cessed, the next OLDBALCE card would also 
be fed through, but never read; and NMR 
alone would allow an OLDBALCE card to be 
fed through at the beginning, without being 
read. 



Lines 06-09 illustrate AND and OR specifi- 
cations. The operations are performed if 
either of these combinations of conditions 
exists: 



Line 13 specifies the output for the blank 

card at the end of each stock-number 
detail-card group. This card will be 
punched with the updated inventory informa- 
tion, and becomes the new inventory master 
for the particular stock item. 

Resulting Indicator 01 was assigned to 
this card type in the input specifications. 
The cards are selected to stacker 2 to 
form — in conjunction with old master cards 
for which there were no transactions (see 
line 04) --an updated complete inventory 
master deck. The file name (TRSACTNS) was 
repeated just to show that this is 
permissible — it is not necessary. 

Output to this card could be performed 
at total time (T in col. 15) . However, 
although totals for a preceding group of 
cards are to be punched, detail time (D in 
col. 15) was chosen, to illustrate that 
there is no fundamental difference between 
the operations that can be performed in 
these two segments of the program cycle — 
provided the appropriate data and indicator 
settings are available: this card type 
(the blank card) , although part of a combi- 
ned file, serves only for output; no data 
is read from it; the data is ready for 
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"summary" punching when the preceding card 
has been processed, and the status of the 
MR indicator is not relevant. Therefore, 
this card can be punched at total or detail 
time. If it is desired to perform output 
to the blank trailer card only if the 
detail cards matched the OLDBALCE cards, MR 
should be specified (in addition to 1) in 
Output Indicators; the output should be 
performed at total time (T in col. 15) , 
when the MR indicator still reflects the 
matching status of the previous card. 
(Because all total-time specifications must 
follow all detail time specifications, the 
specifications now in line 13 would have to 
be moved beyond line 15.) 
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The form is spaced 2 lines after each 
printing. 



Line T7 provides for the printing of grand 
totals; the output is performed only when 
the LR indicator is on. This operation 
must be performed at total time, because-- 
when the LR indicator is on — the job is 
terminated after total output. 

The grand totals are printed at the top 
of a new page (01 in cols. 19-20), and the 
form is again advanced to the top of a new 
page after printing (01 in cols. 21-22) . 



Note that: 

1. All detail-output specifications must 
precede all total-output 
specifications. 

2. Card output operations contingent upon 
the status of the MR indicator (applied 
in the normal manner, to the matching 
of files) at detail time reflect the 
matching status of the card being pro- 
cessed; at total time, MR still 
reflects the matching status of the 



preceding card: this can be utilized 
for output to a card based on the 
matching status of the preceding card. 

3. In this example, Control Level was not 
utilized: a blank (trailer) card was 
assumed to have been merged previously 
behind each stock-number group of 
transaction (item-order) cards. The 
program cycle for the trailer card is 
used to perform the group-end 
operations. 

This re-emphasizes that Control 
Level (L-indicators) and matching 
Fields (M1, M2, M3, and the associated 
MR indicator) have no inherent connec- 
tion with each other — applications 
involving matching-records groups do 
not necessarily require Control Levels. 

In both Figures 50A and 50B, forms 
advance to the next channel- 1 punch is 
automatic after total-output time whenever 
a line has previously been printed at or 
below the channel- 12 punch — because OF (or 
OV) is not designated in Output Indicators 
of a File Identification line. 



Overflow Indicators — OF, OV 

The overflow indicators are related to 
printer forms movement. Overflow indicator 
OF is associated with the standard forms- 
control carriage, and with the lower feed 
of the Dual-Feed Carriage special feature 
(see below) available for the IBM 2203 
Printer. OV is the overflow indicator 
associated with the upper feed of the dual- 
feed carriage. 

The principal functions of the overflow 
indicators are (for their respective 
carriages) : 

1 . To provide for the control of output 
operations — among them such as forms 
advance to a new page, and page and 
column headings after the bottom of a 
page has been reached. 

2. To condition the execution of calcula- 
tion specifications on the basis of 
whether the bottom of a page was 
reached (by entry of OF, OV, NOF, or 
NOV in Indicators, cols. 9-17, of the 
calculation specifications) . 

The relevant overflow indicator turns on 
at the conclusion of a program-cycle 
segment — i.e., after completion of all 
detail-time output, or all total-time 
output — if, during that program-cycle seg- 
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merit, either of the following situations 
cccured in that file. 

1. A line was printed at or below the 
point of a car riage- tape channel-12 
punch during detail- cr total-output 
time — i.e., after a punch in channel 12 
was encountered (sensed) by the 
carriaqe-tape stop brushes; cr 

2. A line was printed after a programmed 
forms-skip was executed (during detail- 
or total-output time) past a carriage- 
tape channel-12 punch, tc a punch in a 
channel ether than channel 1 and 
without passing a channel-1 punch. (A 
forms skip past channel 12 to or past 
channel 1, before the overflew indica- 
tor was turned on as explained in 1 and 
2 above, does not turn it en.) 

When either of these twe conditions 
occurs, it stores a signal tc turn on the 
overflow indicator at the end of that cut- 
put time and, if this is detail-output 
time, then also after the next tctal-cutput 
time . 

(No new overflow signal is created if chan- 
nel 12 is passed during cverf lew-output 
time. ) 



the signal to turn en an overflow 
r is stored (as a result of 1 cr 2 
the signal and the overflow indica- 
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precedinq detail-time output. 






nee 


indicato 


above) , 


tor 


are 


unti 


1 cc 


time 


(un 


ever 


flow 


that 


det 


ticn 


for 


has 


been 


not 


turn 


time 


inf 


cr a 


f ter 



Four points inherent in the above state- 
ments should be emphasized: 
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Although the overflow indicator does 
not turn on until completion of output 
for the program-cycle segment during 
which overflow was signalled, once 
either condition (1 or 2 in previous 
paragraph) that determines overflow has 
occurred, the indicator will turn on- 
even if a Skip instruction to channel 1 
follows the overflow signal within the 
same cycle segment. 

Skipping past a channel-12 punch to a 
punch in channels 2-11, without passing 
a channel-1 punch, creates an overflow 
condition; but skippinq past channel 12 
to or past channel 1 does not. This 
has certain implications: 
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above a channel-1 
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sinq a channel-1 
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If an overflow indicator is on, because 
of an overflow condition during detail- or 
total-time output, then — after conclusion 
of all total-time output in that program 
cycle — cne cf two events occurs: 

1. If bOF (or -bOV, respectively) does not 
appear in Output Indicators (cols. 
23-25, 26-28, or 29-31) of anj_ File- 
Identification specifications line of 
that file (see also D ual- Fe e d_ Car r iacje , 
below) : The form (for that file) is 
automatically advanced until the next 
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channel- 1 punch is sensed by the 
carriaqe-contrcl stop brushes. (If a 
channel-1 punch is already at the 
carriage-ccntrcl brushes, the form is 
advanced to the next channel-1 punch.) 
Nevertheless, the overflow indicator 
remains on until conclusion of the next 
detail-time output. 
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Note that the automatic overflow forms 
advance or the alternative performance of 
cverf lew-time output occurs after total- 
output time. Thus, with detail and total 
printing programmed in the conventional 
manner — at detail time and total time, 
respectively — all detail lines and all 
total lines of one program cycle are com- 
pleted before forms advance cr overflew 
output takes place. Therefore, the 
channel- 12 punch must be placed high enough 
to permit, completion of the maximum detail- 
time and total-time output lines of one 
program cycle beneath the location of the 
channel-12 punch. (It is possible tc pro- 
gram forms overflow to take place prior to 
total-time output--see Programming .Tips, 
Appendix E.) 

If an overflow indicator is turned off 
or on by a SETOF or SETON instruction, cr 
as a Field or Resulting Indicator (in input 
or calculation specifications) , it 
reverts — at the conclusion of the output 



time that follows its programmed setting — 
to the status it would have had otherwise. 

Further details on the behavior of over- 
flow indicators appear in Figure 6 (RPG 
Program Logic) and under P r og r a m_Ip_g i c_ F 1 o w 
(Overflow-Time Output) , In dicators (OF, 
OV) , and Indicator Hierarchy — all in P ro - 
gramming fo r RPG; — General Infor ma tion; 
under Space x _Ski_p (Points to Note: 6,8,9, 
10), above; Output Indicators — OF,, OV, 
immediately below; under Dual-Feed Car - 
riage, below; and under Output In dicators, 
i n Field- Description Specifications, below. 
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Output Indicators — OF, OV 
(File-Identificaticn Specifications) 



Entries of indicators other than OF and OV 
are discussed above (under Out_put 
Indicators; — Cols. 23-31). Entries of NOF 
or NOV operate like entries of any other 
indicators in these fields (cols. 23-3 1), 
except that the output is then conditioned 
to be performed only if that overflow indi- 
cator (OF or OV, respectively) is not on at 
the particular output time (detail or total 
time--D or T in col. 15) . 



The conditions under which overflow 
indicators (OF, OV) are on are explained 
above (Overflow Indicators — OF, OV) . 

If OF (or OV) is specified in Output 
Indicators of a File-Identification line, 
that output is always executed following 
total-time output, and only provided the OF 
(or OV) indicator is then on. Execution is 
also subject to the status, at overflow- 
output time, of any other indicators speci- 
fied in an AND relationship to the OF 
(or CV) indicator. 
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During overflow-output time, all outputs 
conditioned by the OF (or OV) indicator are 
perf crmed--sub ject tc appropriate status cf 
Output Indicators assigned--in the order in 
which the File-Identification lines appear 
in the output-format specifications, 
except: all "total" overflow output (T in 
col. 15) precedes all "detail" overflow 
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output (D or H in col. 15). Although all 
overflow-time output occurs during a separ- 
ate program cycle segment, the File- 
Identification lines for overflow-time out- 
put must nevertheless te grouped with the 
ether detail (D in ccl. 15) or total (T in 
col. 15) output lines. 
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ng overflow-output time, the card- 
Resulting Indicator for the next 
is on. If output is suppressed on 
card type — or conditioned to occur 
en some other particular card 
— no forms advance to the new page 
rs. (There is no automatic cver- 
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rriage when OF (cr CV, respective- 
is specified in Output Indicators 
ny File-Identif icaticn line of that 
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tionship — during tre one program 
e during which the overflow indica- 
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Similar comments apply to calcula- 
tion specifications whose performance 
is made contingent on the status of an 
overflow indicator and a card-type 
Resulting or Field Indicator. 

Other, seemingly peculiar, results can 
cccur when not all types of input (or 
combined-file) cards print detail out- 
put. For example-- 
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File-Identification Specifications in AND 
and OR relationships are explained above 
(under Output Indicators) . 
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ile-Identif ication lines with OF (or 
in Output Indicators may be in AND 
tionship with preceding and-or follow- 
lines (when more than three indicators 
required in an AND relationship) . The 

must remember that the status of the 
r indicators at overflow-output time is 

relevant — not their status at detail 
, even if Type (col. 15) is designated 



ile-Identification lines with OF (or 
in Output Indicators may be placed in 
R relationship with preceding and/or 
owing lines. The user must then be 
ful that the output does not occur 
e — once at overflow-output time and 

at total- or detail-output time — when 
Output Indicators in two lines in an OR 
tionship satisfy the criteria. (Figure 
lines 09 and 14, partially illustrates 
point.) Execution of the overflow 
ifications should then be suppressed 

the OR condition also exists (e.q.: 
1). (See also Figure 51A.^ 
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n example: 

f a qrcup identification is to be 

ted at detail-output time cf the first 

of each control group, and also at the 
of an overflow page, cne cemmen prc- 
ming technigue involves two File- 
tification lines in an CR relationship, 
line has OF in Output Indicators, the 
r 11. (D is specified in col. 15.) 
ver, if printing at the overflew pcint 
cr below the channel-12 punch) ccin- 
s with the last card cf a ccntrcl 
p, group identification is printed 
e: that of the old grcup at the tcp of 
new raqe (during overflew- time output) , 
the identification of the new group at 
il-output time of the first card of the 
grcup. If fcrms advance is specified, 
lso occurs twice. 
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Sometimes it is desired to print the 
same column headings at the top cf the 



first page and of overflow pages. Two con- 
venient approaches are shown in Figure 51B. 

Note: Passing channel 12 during overflow- 
output time does net cause the overflow 
indicator to turn on again for the next 
cycle. Therefore, it is possible to skip 
to mere than one new page during overflow- 
output time, without this itself causing 
overflow after total output of the next 
cycle. 



Explanation of Entries in Figure 51A-Part I 

The File Name PRINT is assumed to have been 
associated with the printer, in the File 
Description specifications. 

It is desired to print the column head- 
ings (the words ACCOUNT, NAME, BALANCE) 
across the top of each page — on the first 
page, on each overflow page, and on the new 
page to be started after each L2 Ccntrol- 
Level break. The example illustrates a 
simple method for printing the same con- 
stant information under each of these three 
conditions. 

Printing must be at detail-output time 
(D or H in col. 15) in order (1) to print 
constants before other data from the first 
card of a control group and (2) to skip to 
a new page on a control break after — not 
before — the group totals have been printed. 
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Figure 5 1A. Forms Advance and Printing of Constants or Identification en Overflow and 
After Ccntrcl Break 



184 System/360 Model 20 CFS Report Frcgram Generator 



Specifications line 01 causes the output to 
occur at the beginning of each 12 ccntrcl 
group. The "constant" data (explained 
under Fi eld De sc r ipt ip n , below) is there- 
fore printed on the first page, as well as 
on every other new page started when a new 
L2 control group begins. 



Line_02 provides for the same output — the 
column headings of constant data — at the 
top of each overflow page. 

Because overflow output and detail cut- 
put take place in separate distinct time 
segments cf the program cycle, either the 
operation in line 02 or that in line 1 
must be suppressed when an L2- level control 
break occurs in the same cycle as an over- 
flow signal. If neither NL2 in line 02 nor 
NOF in line 01 were specified in Output 
Indicators, and an overflow signal and L2 
control treak coincided in cne program 
cycle, the events would be: 

1. 



o 



2. 

3. 

4. 



s 

instant I specificat: 



Skip to channel 1 at 
start of overflow out- 
put; \ OF 
Printing of constant ( specification: 
data; ; 
Skip to channel 1 at 
start cf detail-time 
output \ L2 
Printing of constant ( speciiications 
data 



In this example, it is immaterial wheth- 
er overflow cutput is suppressed when 12 is 
en (line 02: OF NL2 ; line 01: L2) , or L2 
output is suppressed when OF is en (line 
02: OF; line 01: L2 NOF), because only 
constants are printed. 
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At detail time following an 12 control 
break the carriage skips tc the next 
channel- 1 punch, before the headings are 
printed (01 in eels. 19-20) . Thereafter, 
the form is advanced 3 spaces (3 in ccl. 
18). Since cols. 17-22 are blank in line 
02, the forms-ccntrol instructions are 
taken from the last preceding line (cf the 



same group) that contains significant 
entries, i.e., line 01. 

Note: Output should not also be specified, 
in this application, before the first card 
has been read (at IP time) . This would 
cause printing of the constant data, fol- 
lowed by forms advance and another line of 
the same constant data at detail-output 
time cf the first card (which is normally 
also the first card of an L2 Control-level 
break) . 



Explanation of Entries in Figure 51A-- Part 
II 

This example is intended to be contrasted 
with Part I. Again, the form is to be 
advanced to a new page when either a Level- 
2 control break has occurred or overflow 
was signalled. 

However, instead cf constant heading 
data, the account number (contents of the 
field ACCT) of the pertinent card group is 
to be printed at the top cf each page. As 
specified in lines 07 and 08, this will 
operate correctly: 
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Line_C8: If an 12 Control-Level break has 
occurred, the form is advanced (at detail- 
output time) to the top of a new paqe. At 
detail-output time, the ACCT field contains 
the account number from the first card of 
the new ccntrol group. This is the proper 
indentif ication for the data that will 
follow. 

Now note what would happen when overflow 
and L2 control break coincide, if OF were 
the only specification in Output Indicators 
in line 07, but 12 NCF were spcified in 
line C8: 

Duplication of page headinq is properly 
prevented; but--when L2 and OF are both 
on--the specifications in line 07 (not 
line 08) are executed. These are per- 
formed at overflow-output time, when the 
data from the first card of the new con- 
trol group is not yet in the process 
area. The account number at the top of 
the new page will be that of the last 
card of the previous ccntrol group; but 
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Figure 5 1B. Forms Advance and Printing of Constants on First and Overflow Pages 

the card data that will follow will be Two File-Indentif ication specifications 
from the new group. The group will thus lines are needed with this method. Part II 
be incorrectly identified. presents an alternate approach. 



Explanation cf Entries in figure 51B-Part I 



This is a straightforward set of output 
specifications fcr printing the same con- 
stant data (e.g., the word ACCOUNT) at the 
top cf the first page (before the first 
data card has been read--lP is on) and at 
the top cf each overflow page (at overflow- 
output time) . 



Explanation of Entries in Figure 5 1B — Part 

II 

This illustrates use of the OF indicator in 
calculation specifications to accomplish 
the same as Part I, but without an OP line 
in the output-format specifications. 

The File-Indentif ication specifications 
(line 05, output-format specifications) 
cause the output to be performed at detail 
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time, if indicator IP is c.n. It is always 
en before the first card has been read; 
therefore, the heading word ACCOUNT is 
printed in print positions 2-8 on the first 
page. 

The first detail-time calculation speci- 
fication (line 01, calculation specifica- 
tions) causes indicator 1P to turn on if 
the CF indicator is on. The OF indicator 
is on if a line was printed at or telcw the 
channel-12 punch during the preceding 
detail-time or total-time output of the 
same program cycle (see Figure 6, EPG Fro- 
S£ 3H!_L £2 i £ ) • The output specifications in 
line 05 are then the first detail-time out- 
put operations performed in the next pro- 
gram cycle. 

Indicator 1P is turned off again fcy the 
EPG program after a new card has been read. 
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Dual-Fee d_ Carri a cj e ( D F C}_ 

This is a special feature available for the 
IBM 2203 Printer equipped with a 39-, 52-, 
or 63-character typebar. . The DFC permits 
control cf two different forms in one job 
run. Each form has its cwn forms-control 
carriaqe and the forms tractcrs cf the two 
carriages are controlled independently, 
each having its own carriage-ccntrcl tape. 

The overflow indicator OV is associated 
with the extra carriage, the sc-called 
upper carriage. The overflow indicator OF 
remains associated with the standard, cr 
lower, carriage. 

Pairs cf forms that are to contain 
information frcm a cemmon source — any, all, 
or none cf which may apply fc both fcries-- 
can be printed in a single run with entire- 
ly different spacing and fcrmat require- 
ments. The two forms can te completely 
segregated side-by-side, cr they can be 
partially or entirely overlapped. 

For example: payroll checks can te 
printed alongside a payrcll register; cr 
the checks can be above cr beneath the 
register, with different spacing and fcrms- 
skipping. Similarly, invoices and an 
invoice register, or invoices and shipping 
labels, can be handled side-by-side or par- 



tially or fully superimposed. (For further 
details on the DFC feature see the publica- 
tion IBM_Sy;stem/36J)_Jodel_ 20j._2 20J_Print er , 
Form A26-5926.) 

The forms controlled by the two car- 
riages are assigned separate output-file 
names in separate entries in the File 
Description Specifications, each name being 
associated through the Device code with a 
particular cne of the twe carriages. 
Separate File-Identification and Field- 
Description entries for these two files are 
reguired in the cutput-f crmat specifica- 
tions, when both files are to be used. The 
Field-Descripticn specifications may be 
different, or partially or wholly identic- 
al, when desired. 

The two files are basically two separate 
files. However, printing takes place con- 
currently for the two files (upper and 
lower carriage) — i.e., output is treated as 
though tc a single file, which can speed 
output considerably--if all four of the 
following conditions are satisfied: 

1. Output is specified for the same 
program-cycle; segment (both D or H, or 
both T, in col . 15). 

2. The specifications for the two files 
fellow each other in the output-format 
specifications, without intervening 
entries for any other output. (If out- 
put to the same two files is specified 
several times, the entries for the two 
files must be paired wherever they are 
to be treated as a single file for con- 
current output.) 

3. The entries in Output Indicators of 
File-Identification lines (though not 
necessarily of Field-Description lines) 
are identical for the two files. (Same 
overflow indicator for both files also 
satisfies this criterion.) 

Net only must the same indicators be 
specified alike (each preceded by "6 or 
N, respectively, for both files) , but 
they must also te entered in the same 
order. If there are AND and/or OR 
lines, the number of such lines, and 
their seguence and Output Indicators 
must correspond for the two files. 

(These requirements preclude simul- 
taneity cf output for the two files if 
different overflow indicators (OF and 
CV) are specified in Cutput Indicators 
of the File-Identification lines of the 
two files, or if one--but not the 
other--has one of these overflow indi- 
cators specified.) 

4. No Cutput Indicator in a File- 
Identification line is required to be 
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cff (Nxx) as a condition of output for 
these two files, if that indicator may 
turn en as output fields for the first 
file are transferred to the output area 
(see "Blank-After"). For example: 
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This could cause the indicator to 
turn en between output for the first 
and second files. Therefore, if an 
indicator has teen assigned in such 
manner, the two dual-feed-carriage 
files are designated — at program- 
generaticn time — as two separate files 
whose output will be performed consecu- 
tively, but net concurrently. 

Concurrent printing can occur even 
though there are different Space and/cr 
Skip specificatiens (cols. 17-22) for the 
two files, provided that the other condi- 
tions (abeve) are met for treating the two 
output files as one. 

Forms overflow for each file conforms to 
the normal overflow operation of any print- 
er output file: 



1. 
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2. 



If ±)CF (cr 150V, respectively) does not 
appear as Output Indicator in any File- 
Identif icaticn line fcr the respective 
printer file, forms advance to channel 
1 is automatic fcr that file after 
total-output time, when the pertinent 
overflow indicator is en. 



If "fcOF appears in File-Identif icaticn 
Output Indicators for the lower-feed print- 



er file, but OV does not appear for the 
upper-feed file, then overflow forms- 
skipping to channel 1 is automatic for the 
upper carriage but not the lower; and vice 
versa. If OF or OV is specified in File- 
Identification Output Indicators for the 
other file (i.e., OF with the upper-feed 
file and/or OV with the lower-feed file) , 
automatic overflow forms advance remains 
operative in that ether file; however, the 
output called for by the File- 
Identification and Field-Description speci- 
fications occurs at cverf lew-output time 
(not at detail- or tctal-output time) --even 
though the overflow indicator is that of 
the other file. 

Figure 52 illustrates specifications for 
both files of a dual-feed carriage. For 
general information en overflow indicators 
and overflow forms advance see Overflow 
ZH^icators--_OF_ t _OV and Ou tput_ Indicator s- - 
OF r V , above. 
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Figure 52. Examples of Entries for Dual- 
Feed Carriage Output 

Explanation of Entries in Figure 52 

It is assumed that one of the two file 
names (INVOICE or REGISTER) has been 
associated, in the File Description 
Specifications, with the upper-feed 
carriage (PRINTUF) , and the other with the 
lower-feed carriage (PRIN1LF or PRINTER) . 
Field names and print positions have been 
included fcr completeness; their use is 
explained more fully later. 

The specifications meet the criteria for 
concurrent printing to both files (i.e., 
the program consolidates the two files into 
one, at generation time) : 



1. 



2. 



Eoth file outputs are in the sam< 
program-cycle segment (D in Col. 



15); 



The specifications for the two files 
are contiguous; 
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3. Identical File-Identification Output 

Indicators are specified in equivalent 
positions, and AND- and CR-line entries 
correspond. 



4. It is assumed that neither indicator 14 
nor PR is assigned as Zero-or-Blank 
indicator to FIELDC (the only field in 
the first file with a Elank/After 
instruction) . 

Note that concurrent printing is still 
accomplished even though fcrms ccntrcl 
(cols. 17-22) may differ for the two 
files. 

Neither 01 nor OV is specified in Pile- 
Identification lines for the lower or 
upper-feed carriage, respectively. There- 
fore, printing is at detail time (D in col. 
15)--not at overflow-output time--and over- 
flow forms advance tc channel 1 is automat- 
ic fcr bcth files. 
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FIELD DESCRIPTION AND CONTROL — COLS. 23-70 

One Field-Description specifications line 
is needed per data field. Field- 
Description lines follow immediately 
beneath the File-Identification line (s) for 
the particular output operation. At least 
one Field-Description line is reguired per 
File-Identification line (or group of 
lines, when there are AND or OR lines) . 

Each Field-Description line contains the 
information necessary to determine the out- 
put format of an individual field, its 
location in the output record, and any con- 
ditions restricting output of the field 
beyond the general restriction on output of 
the entire file. 



Out 2 u t_ Indi ca tors-- C c 1 s^. 23-31 

(Field -Description Specifications) 

Entries in Output Indicators of a Field- 
Description line follow the rules for Out- 
put Indicators in File-Identification 
lines, with these differences; 
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Even if all field output for a file 
is suppressed in a program cycle (by 
virtue of the status of indicators in 
the Field-Description lines) , the file 
output still takes place if the Output 
Indicators in the File-Identification 
line have the appropriate setting. 
Therefore, for instance, .if file output 
to a card file takes place, but all 
field output is suppressed, the card is 
transported past the punch and print 
stations without being punched or 
printed; if the output file is the 
printer, a blank line is "printed", but 
fcrms movement is implemented as though 
data had been printed . 

Entry of an overflow indicator (OF, OV) 
has no effect on forms control, nor 
dees it cause the output to be shifted 
(from detail or total time) tc 
overflow-output time. Indicators OF 
and CV in Field-Description lines are 
treated like any other conditioning 
indicators — for example: if OF is spec- 
ified, output of the field occurs only 
if the OF indicator is on at the time 
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output to the file takes place; if NOF 
is specified, output cf the field is 
contingent en indicator OF being off. 

Cutput Indicators in an AND relation- 
ship in Field-Description Specifica- 
tions are limited to tie three that can 
be accommodated in one line; AND lines 
are not permitted. (See Prog ra mming 
Ti£s r Figure E6I, for setting cf a 
single indicator to represent three AND 
conditions. ) 
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Figure 53. Examples of Cutput Indicators 
for Field Description 
Specifications 



Field Selection 

Point 4, above, explains cutput cf the same 
field under CE conditions. The same tech- 
nique can be applied to select one, from 
among several different fields, to be used 
for cutput to cne location. 

If several different fields cf appropri- 
ate size and fcrmat are each conditioned by 
mutually exclusive Output Indicators, and 



all have the same entry in End Position in 
Output Record (see below) , at most one of 
these fields will be transferred to that 
cutput area. 

Figure 53 shows two sets of entries por- 
traying applications of Output Indicators 
for Field-Description lines. File- 
Identification, field-name entries, and End 
Position in Output Record have been 
included for the sake cf clarity. (Field 
names and output-record positions are more 
fully covered shortly.) The numbers to the 
left of the figure correspond to the 
explanatory sections that follow. 



Explanation of Entries in Figure 53 

Example 

1. Assume that the file FEINT has been 

associated with the printer in the File 

Description Specifications. 
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%^J 



consist of a combination of indicators, 
(b) That it is not necessary to make 
the OR conditions mutually 
exclusive in this situation: 
The OF indicator in a Field- 
Description line operates like 
any other indicator; it does not 
cause the output to be switched 
from detail-output time to 
overflow-output time (as it does 
when entered in a File- 
Identification line) . There- 
fore, the output described in 
lines 02 and 03 takes place in 
the same program-cycle segment 
(detail-output time) — thus, the 
field cannot print twice even if 
overflow and the end of a Level- 

2 control group coincide. (Note 
the difference when OF is 
assigned in a File- 
Identification line: see Outp ut 
Indic ators — OF , OV , under F ile 
Identi fication an d Control ; 
Figures 5E and 51A; and Figure 
53, Part 2.) 

If overflow and an L2 control 
break occur in the same program 
cycle, both lines 02 and 03 are 
executed; but the data for line 

03 is transferred to the output 
area after that for line 02. 
Since the data is the same (the 
contents of the SALSEN field) , 
and is moved to the same output 
location (ending in print posi- 
tion 4) , no harm is done. 

The contents of the field CUSTER are 
printed (subject to indicator 44) only 
when the L1 indicator is on at detail- 
output time--the standard method for 
group-indicating on the first card of a 
control group. 

The contents of the field COESN are 
printed (subject to indicator 44) only 
if indicators 25 and 02 are on, and 
indicator 16 is off. 

This is an example of the maximum of 
three indicators in an AND 
relationship. 

The overflow indicator (OF, or OV) 
is not specified in output Indicators 
of a File-Identification line. There- 
fore, overflow forms advance to channel 
1 is automatic. 

Example 

2. Assume that (1) the file PRINT has been 
associated with the printer in the File 
Description Specifications, (2) indica- 
tor 04 represents a heading card fol- 
lowed by a group of listed detail 
cards, (3) printing of some fields is 
to be suppressed when printing headings 
on overflow pages, and (4) Invoice No. 
(INVOIC) is to be replaced by Credit 
Memo No. (CRHEE) when indicator 85 is 
on ("field selection") . 



Printing takes place at detail- 
output time if indicator 04 is on, and 
at overflow-output time if indicator OF 
is on and indicator 04 if off. If the 
overflow point and the reading of a new 
heading card can happen in the same 
program cycle, line 10 must have N04 in 
Output Indicators; otherwise, when the 
overflow signal coincides with a new 
heading card, the headings would be 
printed twice: first the headings for 
the old (completed) group during 
overflow-output time, then the new data 
from the heading card at detail-output 
time. (If the nature of the applica- 
tion is such that overflow and a type- 
04 card cannot coincide, then N04 in 
line 10 is not needed.) 

The contents of all five fields are 
printed at detail-output time when a 
type 04 card is being processed; but 
only CUSTER and INVCIC or CREEE are 
printed at overflow-output time. 



Field sel ection is performed between 
the fields INVOIC and CREEK: one or 
the other is transferred to the same 
output area, depending on the status of 
indicator 85. (If the field CRMEE is 
no shorter than INVCIC, N85 in line 14 
is not needed: the data from CRMEM 
would be overlaid over the INVOIC data 
if indicator 85 is on.) 

Before a new heading card or an 
overflow-page heading is printed, the 
form is advanced to the top of a new 
page (01 in cols. 19-20) ; after print- 
ing of the heading, it is skipped to 
the nearest channel-2 punch. 
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The programmer has the choice of 
suppressing the printing of some fields 
(see lines 12, 13, and 16) during 
overflow-output time by specifying 
either (1) the indicator of the condi- 
tion to which the printing of the field 
is to be restricted (04 in this 
example) , or (2) the negative of the 
indicator that is on when the field is 
not to be printed (NCF in this 
example) . 

As illustrated — with indicator 04 in 
the pertinent Field-Description lines — 
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the application will work, even when 
overflow and a type-04 card coincide. 

However, if NOF (in place of 04) 
were specified in lines 12, 13, and 16, 
the application would work correctly 
during each overflow heading, and for 
the printing from each type-04 heading 
card--but the latter only if overflow 
was not signalled during the same pro- 
gram cycle in which the new heading 
card was read. The reason is that — 
although overflow output is not 
executed (because N04 is entered in 
line 10) if overflow was signalled in 
the same cycle in which a new heading 
card was read — the overflow indicator 
is nevertheless still on at detail- 
output time, when the new heading-card 
data is printed. In that situation, 
the output from the fields ORDER, 
SALSMN, and DATE would be suppressed — 
by NOF--when the new heading card is 
printed . 



Field Name — Cols. 32-37 

Entry of a field name here designates the 
contents of that field for output — forms 
printing, card punching, or document- 
printing — subject to Output Indicators in 
this Field- Description line and in the pre- 
ceding File Identification. The output 
device (printer or card punch) is deter- 
mined by the file name (see File Name , 
above). The location of the data in the out- 
put record is determined by the entry in 
cols. 41-43. 

The field name is entered left-aligned 
(to begin in col. 32). With one possible 
exception (PAGE — see Consecutive Numberin g, 
below) , the name must have been previously 
defined in the input specifications (Field 
Name) , file-extension specifications (Table 
Name) , or the calculation specifications 
(Result Field) . 

All previously defined field names are 
permitted, except the following: 

ALTSEQ, a name that begins with CONTD, 
or 

PAGE followed by one or tvo characters. 

The field name PAGE itself has a special 
significance (see Co nsecutive Number - 
ing, below) . 

If the field name corresponds to the 
name of a table defined in the file exten- 
sion specifications, the output consists of 
the contents of the "hold" area for that 
table — i.e., normally the data selected 
from the table in the last LOKUP operation. 
(For details, see Table Look- Up Ope ration s, 
under C alculation Specifications. ) 

Output fields need not be recorded in 
the seguence in which their data is to 



appear in the output record; that seguence 
is determined by entries in cols. 41-43 
(End Position in Output Record) . 



The seguence in which the fields are 
specified can nevertheless be important 
under some circumstances--principally when 
Blank-After is specified (col. 39) : with 
one exception (below) , fields are trans- 
ferred for output to the designated (cols. 
4 1-43) location of the output core-storage 
area in the order in which they are record- 
ed (under the File-Identification specifi- 
cations) . Therefore: 

If successively specified output fields 
are assigned partially or completely 
overlapping positions in the output 
record (i.e., based on entries in cols. 
41-43), the data from the field speci- 
fied later (lower down) replaces any 
data in the same output-area positions 
of a field recorded higher up. (The 
same applies regardless of whether the 
field name is the same or different — it 
is possible for the contents of the same 
field to change during output, by a 
Blank-After instruction.) 

Of course, if several Field- 
Description entries specify transfer to 
the same output record area, but only 
one of the transfers is executed because 
of either (1) mutually exclusive Output 
Indicators, or (2) association with dif- 
ferent program-cycle segments, no over- 
lay problem exists. 



E xception: 

When card document-printing (inter- 
preting) and punching are both speci- 
fied for the same card (under one 
File-Identification specification) , 
then transfer of the data of all 
appropriate fields to the output 
punch-storage area precedes transfer 
to the card-print output storage area. 
This calls for caution in the use of 
Blank-After instructions with such 
fields. 

If, instead of the contents of a field, 
a constant is to be transferred to the 
core-storage area for the output-record 
location specified in cols. 41-43, Field 
Name (cols. 32-37) is left blank. (See 
Constant, below.) 

Figures 5E and F, 51A and B, 52 and 53 
already illustrated the use of output field 
names and constants. Several further 
examples appear in Figures 54A and B. 



Consecutive-Numbering (Page Numbering) 

RPG provides automatic page numbering or 
consecutive card-numbering simply by using 
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PAGE (In cols. 32-35} as the name of an 
output field for the pertinent file. 

Only one page- or consecutive- numbering 
field can be set up in this manner. If 
serial numbers are needed for several out- 
put files — such as both files of a dual- 
feed carriage, or a printer file and a card 
file, etc. — numbering of the additional 
files must be handled with another field 
name and use of calculation specifications. 

The field named PAGE is basically 
treated like any other output field: 
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However, the PAGE field differs in other 
significant respects: 

1. The contents of the field are always 
incremented by +1 (by the RPG program 
itself) immediately before output from 
the field. (At the beginning of 
object-program execution, the field 
contains zeros.) 

Therefore, if PAGE appears only in 
the output-format specifications, out- 
put + from the field the first time is 
0001; the second time, it is 000$; etc. 

If a value was entered into the PAGE 
field from an input card (see Consecu- 
tive Numbering — Header Cards, under 
Input Specification s) or by calculation 
specifications, whatever value stands 
in the field at time of output is 
incremented by +1 before output. Thus, 
if (for example) the most recent entry 
in the field PAGE from an input card 
was 1000, and 25 was subtracted from 
PAGE by a calculation instruction, out- 
put will be 0976. The next output 
(assuming no new input or calculation 
specifications changes to the field) 
will be 0977; etc. 

If the PAGE field is used as output 
several times in one program cycle, the 
number is incremented before each 
output. 

2. The field is always numeric, and 4 
digits long . 

3. The low-order position is always signed 

(normally plus, although minus is pos- 
sible if a negative number was entered 
from a card or in calculation 



specifications) . 

55_ero _ Suppress or an edit word may be 
specified (see Zero Suppress "and Edit 
Word, below) . If this is not done, 
leading zeros will be printed or 
punched for numbers of less than four 
significant digits, and the low-order 
position will be signed: when punch- 
ing, the low-order position will then 
contain a 12- or 1 1-overpunch ; when 
printing, the character will be as 
shown in the EBCDIC-table column 
labelled C or D, respectively. Depend- 
ing on the typebar, chain, train, or 
MFCM print-mechanism set of graphics, a 
signed zero may only print a plus or 
minus sign, or the position may remain 
blank. Normally, when printing page 
numbers, Zero Suppress (Z in col. 3.8) 
is specified to eliminate the leading 
zeros, and avoid zoning by the plus 
sign. 

Output Indicators cannot be assigned in 
a PAGE Field-Description line to make 
output of the field subject to the sta- 
tus of indicators. Field Output takes 
place whenever output to the file is 
performed. 

Output Indicators may be designated in 
a PAGE Field-Description line, and— 
when output to the file is performed 
(subject to File-Identification Output 
Indicators) — have the following effect: 

(a) If not all assigned indicators are 
in the designated states (on, or 
not on, as specified) : no effect. 

(b) If all assigned indicators have 
the status stipulated (on, or not 
on, as specified) : 

The PAGE field is set to zero 
before being incremented by 1 , 
both prior to output. Output is 
then 000 T. 

Note: Blank-After (col. 39) is 
also a permitted method for reset- 
ting the PAGE field to zero; but it 
is usually awkward in practice to 
set up the control to execute this 
reset at the desired time only. 



Figure 25 and its accompanying text 
explain how to employ input cards to initi- 
ate a series of numbers for the PAGE field 
with any desired 4-digit value at any point 
of an input (or combined- file) deck. 
Figure 54A includes specifications to print 
output from the PAGE field. 

Z ero Suppress (Z) — Col. 38 

This column must be left blank if: 

1. The field is defined as alphameric (in 
the input, calculation, or file exten- 
sion specifications) ; or 

2. The Field-Description line applies to a 
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If none of the above applies, the letter 
Z may be entered in col. 38 of a Field- 
Description line for a field that has been 
defined as numeric. Specifying Z has two 
effects on the format of the output: 

1. Blanks are substituted for leading 

(non-significant) zeros; and 

2. Zone bits are removed from the low- 
order (rightmost) position of the field 
(i.e., the character is assigned the 
corresponding position* in the same 
row, in EBCDIC-table column labelled 

A numeric field is zoned in its low- 
order position if (a) it was zoned in 
that position when read in, or (b) a 
Field Indicator was assigned to it in 
the input specifications, or (c) it was 
a Result Field in an arithmetic opera- 
tion, or (d) a zone was moved to that 
position in calculation specifications, 
or (e) the input field was blank, or 
(f) the field was cleared by a Blank- 
After specification. 
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The Zero-Suppress specification is a 
simple method of editing a field for print- 
ing, when a sign is known to have no signi- 
ficance. For example: if a quantity field 
can only be positive, but a plus (EBCDIC 
C-zone) appears over the low-order posi- 
tion, specifying Z assures printing of an 
unsigned character (0-9) — rather than a 
letter, symbol or blank space — in the low- 
order position; at the same time, left 
zeros are eliminated. 

Data to be punched is not usually edited 
by the specification Z in col. 38, because 
high-order zeros are normally to be 
punched. Without any editing, a negative 
value is punched in the low-order position 



with an 11-overpunch and a positive value 
may have a 12-overpunch (if the field was 
read in with a 12-overpunch, if a Field 
Indicator was assigned and the field con- 
tents were positive or zero, if it was a 
positive or zero Result Field in an arith- 
metic operation, or if a C-zone was trans- 
ferred to it in some other calculation 
operation, if the input field was blank, or 
the field was cleared by a Blank-After 
specification) . If the 12-overpunch is not 
desired, it can be removed prior to punch- 
ing (see next paragraph, and Programming 
Ti ps) . 

To provide complete flexibility of edit- 
ing for printing and punching, two other 
methods are available: 

1. Editing by Edit Word (see below) ; and 

2. Limited editing by calculation specifi- 
cations (see Calculations Specifica- 
tions, above) : 

(a) A zone can be removed from the low- 
order position of a numeric field 
by moving any character shown in 
EBCDIC-table column F (e.g., any of 
the digits 0-9) to that position by 
a HHLZO or MLLZO operation. The 
last line in Figure 42, in conjunc- 
tion with line 06 in Figure 43, 
illustrates this. (See also Pro- 
gramming Tips . ) 

(b) Leading zeros can be changed to 
blanks by moving the numeric field 
to an alphameric field, and then 
moving in blanks by a MOVEL opera- 
tion. The appropriate number of 
blank positions can be determined 
by move and other calculation 
operations. 



o 



The Z specification has been illustrated in 
Figures 52 and 53. Further examples appear 
in Figures 54A and B. 

Blank After (B) — Col. 39 

A "B" entered in this column causes the 
field to be cleared immediately after its 
contents have been transferred to the out- 
put core-storage area (i.e., as the speci- 
fications in the output line are executed) . 
This is a convenient method, for example, 
of clearing a group-total field as the 
group total is transferred for printing — 
so that the field is ready for data accumu- 
lation of the next group. 

An alphameric field is set to blanks; a 
numeric field is set to zeros, signed plus. 

Once a field has been reset by Blank- 
After, it is blank or zero until data has 
again been placed in it by an input or cal- 
culation operation. Therefore, it is blank 
or zero at least for the remainder of the 
same program-cycle segment (total-time, 
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overflow-time, or detail-time output) . 
Thus, if Blank-After is specified for a 
field, the field is already cleared before 
the transfer to the output core-storage 
area specified in the next Field- 



Description line — even if that transfer 
involves the same field — and it is blank or 
zero at the time any subsequent File- 
Identification specifications in the same 
program-cycle sigment are executed. 
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Therefore, if output from the same field 
is required several times (e.g., to several 
media — say, for forms-printing, card punch- 
ing, and/or card document-printing) , care 
must be applied to designate the B in col. 
39 only in the last of the pertinent File- 
Identification and Field-Description lines: 
as explained above, under Field Name, 
fields are transferred to the output core- 
storage area in the sequence in which they 
appear in the output-format specifications. 
However, if card document-printing (inter- 
preting) and card punching are both speci- 
fied for the same fields (under one File- 
Identification specification) , all trans- 
fers for punching are performed first. In 
this situation, any Blank-After specifica- 
tion should be in the last Field- 
Description line that specifies card docu- 
ment printing for that field. 



Note : If the output line pertains to a 
constant in cols. 45-70 (i.e., Field Name, 
cols. 32-37/is blank), the core-storage 
area that contains the constant is set to 
blanks by the Blank-After instruction. It 
remains blank thereafter until the object 
program deck is reloaded, or the program is 
regenerated. 



Relationship of Indicators to Blank After 

A Field Indicator or Resulting Indicator 
assigned to "Zero or Blank" turns on imme- 
diately when that same field is cleared by 
a Blank-After instruction during output. 
This applies to indicators assigned to 
"Zero or Blank": 

1 . In Field Indicators in the input 
specifications — cols. 69-70; and 

2. In Resulting Indicators in the calcula- 
tion specifications — cols. 58-59 — for 
arithmetic or test-zone operations 

(specifically: ADD, Z-ADD, SUB, Z-SUB, 
HULT, DIV, MVR, TESTZ) . 
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However, the fact that the Blank-After 
instruction may turn on an indicator for a 
field does not cause any other indicator 
for that field to turn off. For example, 
assume: 

Indicator 25 assigned to Minus (cols. 
67-68) in Field Indicators for 
FLDA, in input specifications; 



Indicator 20 assigned to Zero or Blank 
(cols. 69-70) in Field Indicators 
for same field (FLDA) ; 



The field is negative at input time. 
Therefore, indicator 25 turned on 
when the input data was transferred 



to the process area before detail- 
calculation time. 



At detail-output time for FLDA, Blank- 
After is specified for FLDA. 



Then: immediately after transfer of 
FLDA at detail-output time, indica- 
tor 20 turns on; but indicator 25 
also remains on (unless previously 
turned off by a calculation 
specification) . 



Once an indicator assigned to "Zero or 
Blank" has been turned on by a Blank-After 
instruction, it cannot be turned off again 
during the same output program-cycle seg- 
ment (the earliest possibility is calcula- 
tion time during the next program-cycle 
segment, setting of Field Indicators before 
detail-calculation time, or automatic reset 
for certain indicators after the next card 
has been read following detail-output 
time) . Therefore, the programmer must 
realize that the indicator is on for subse- 
quent Field-Description and File- 
Identification specifications which may be 
conditioned by its status (it can, however, 
no longer change execution of the same 
File- Identification specifications, or the 
transfer to the output area of data in the 
same Field-Description line) . 

Note: If more than one indicator is 
assigned to Zero-or-Blank for the same 
field in different specification lines, 
Blank-After causes only the earliest- 
assigned indicator to turn on. (However, 
a ll of the different indicators assigned to 
Zero-or-Blank for the field, in Field Indi- 
cators or calculation Resulting Indicators 
of arithmetic or TESTZ operations, are on 
at the beginning of program execution.) 

Blank After has been illustrated in 
Figures 5E, 5F, and 52. Further examples 
are included in Figures 54A and B. 

The subject of indicators, as related to 
Blank-After, is also discussed in P rogram 
Logic Flow , under Input Specifications , and 
under Calculation Specifications . 

End Pos ition in Output Record — Cols. U P 7 43 

This entry (right- justified in cols. 
41-43) designates the location of the field 
or constant in the output record. Only the 
location of the rightmost character of the 
"field" or constant is specified. 

"Field", in this case, includes any 
extension due to an edit word (see Edit 
W ord , below) : if an edit word (cols. 
46-69) extends to the right of the data in 
the field. End Position in Output Record 
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refers to the rightmost position of the 
edit word. For example: 

Assume a seven-digit field, with its 
low-order position to be printed in 
print position 10; 

Assume an edit word that (1) inserts a 
decimal point between the dollars 
and cents position, (2) inserts a 
comma between hundreds and thou- 
sands of dollars, (3) allows a 
blank to the right of the low-order 
digit, followed by a CR symbol for 
negative amounts, and (4) provides 
an asterisk to the right of the CR 
position. 

The maximum printout then looks like 
this: xx, xxx .xxbCR* 

print position 10 
Therefore, End Position in Output 
Record is 14. 
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Zeros in cols. 41-43 may be entered or 
omitted. (Col. 40 does not apply to card 
RPG , and may be left blank or coded zero.) 



Card Document-Printing (Interpreting) 
Specifications (Cols. 41-43) — Special fea- 
ture, available only on the 2560 MFCM Model 
A1, attached to an IBM System/360 Model 20, 
Submodel 1 or 2. 

The file name (cols. 7-14) identifies the 
output device. Thus, End Position in Out- 
put Record (cols. 40-43) refers to the 
printer if the file name was associated, in 
the file-description specifications, with 
the printer; it refers to a specific card 
processing device, if that was the associa- 
tion formed in the file-description 
specifications. 

However, the file- description specifica- 
tions cannot make a distinction between 
punching into, or printing on, a card in 
the MFCM. (If the two functions were to be 
distinguished as separate files, it would 



not be possible to punch and interpret the 
same cards in a single pass.) Therefore, 
if the file name is associated with the 
MFCM, output -to be punched is distinguished 
from output to be card-document-printed 
(interpreted) by the entry in End Position 
in Output Record. 

Since End Position in Output Record can- 
not be greater than 80 for punch cards, the 
hundreds position (col. 41) is used to 
distinguish between punching and 
interpreting : 

Col. 41 = or b: output is punched. 
Col. 41 = 1-6: output is document- 
printed on the card by 
print head 1-6, 
respectively. 
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The entry in cols. 42-43 represents the 
rightmost location occupied by the low- 
order position of the "field" (including 
any extension through an edit word) in the 
card, in either case (punching or inter- 
preting) . The maximum value (i.e., right- 
most location) possible is: 

1 . 80 for card punching 

2. 64 for card document-printing 
(interpreting) 

Punching, and interpreting of one to six 
lines (depending on the features 
installed) , may be performed in the same 
card during a single pass of the deck 
through the system. However, all punching 
and interpreting for one card must be spe- 
cified under a single File-Identification 
line (or group of AND or OR lines) . The 
Field-Description lines for punching and 
interpreting may appear in any order under 
the File-Identification line; but, for one 
File Identification, all data for punching 
is always transferred (by the program) to 
the output core-storage area ahead of the 
data for interpreting. Therefore, if 
Blank-After (see above) is specified for a 
field that is to be punched and inter- 
preted, the 3 in col. 39 must be entered 
in the (last) line that specifies inter- 
preting for that field; otherwise, the 
field is already blank or zero before 
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transfer to the output area fcr interpret- 
inq. If the same field is to be inter- 
preted mere than once, Blank-After should 
be specified in the last line that speci- 
fies interpreting for that field: the 
fields fcr interpreting are transferred to 
the output area in the sequence in which 
they are specified in Field-Description 
lines, regardless cf print-head number. 



Note : Other things being equal, output 
time is conserved if: 
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Entries in End Position in Output Record 
have already been illustrated in Figures 
5E, 5F, 51A, 51B, 52, and 53. Further 
examples, including specifications for 
interpreting, appear in Figures 54A and B. 

No.1:e_: The output storage area is cleared 
by the program after each pertinent output 
operation. 



J!acked_Field_iPl- z Col^ 44 

A field defined as numeric is stcred, at 
its field-name location, in packed fcrmat 
(see Data Formats, Appendix D) . If col. 
44 is left blank, numeric data moved tc the 
output cere-storage area is unpacked during 
this transfer. This causes the data tc 
appear in cards and cn printed reports in 
customary form — one digit per column or 
print positicn (with the lew-order position 
possibly signed) . 

If P is entered in col. 44, the 
(numeric) field is transferred tc the cut- 
put storage area in its packed fcrmat — two 
digits (cne per half-byte) per column (or 
print positicn) , represented by the EBCDIC 
characters for the particular combinations 
of two digits. The low-crder positicn con- 
tains the EBCDIC character for the lew- 



order digit and sign (which may also be 
hexadecimal F, for "no sign"). 

Packed output has a field length sliqht- 
ly larger than half that of an unpacked 
field. (It is greater than half the 
unpacked field size because the siqn posi- 
tion requires a half-byte, and only com- 
plete bytes are permissible.) The formula 
is : 

n + l + E 

T.p = , where 

2 

Lp = number of positions in the packed 
output field 

n = field length, defined in: 

a. input specifications of 
unpacked input field (Field 
Location) , or 

b. calculation specifications 

(Field Length) , or 

e. file-extension specifications 
(Length of Table Entry) 

E = 0, if n is odd; or 

= 1 , if n is even. 

When specifying End Position in Output 
Record, the reduced length of a packed 
numeric output field should be taken into 
account. 

Packed output is intended as an optional 
format for punching into cards: 

1. Cn a serial punch it may expedite 
throughput, if punching can be ter- 
minated at a lower column number 
because the data fits into fewer 
columns. 

2. It may significantly reduce punch time 
if, as a result cf packed output, the 
data fits into fewer cards. 

3. It may reduce subsequent card handling 
if, as a result cf packed output, fewer 
cards are required. 

4. It may speed subsequent input, if the 
number cf cards has been reduced as a 
result cf previous packed output. 

(See also Packed--Col.' 43, under Input 

Specif ic a t i o n s . ) 

It should be pointed out, however, that 
numeric data punched in packed format is 
difficult tc decipher (without a conversion 
table) by visual inspection of a card, and 
still awkward to read even with reference 
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to the EBCDIC table (see Appendix D) . 
Sorting en packed-decimal fields alsc pre- 
sents special problems. 



While it is permitted tc specify P for 
printed numeric output (tc the printer or 
for card document-printing) , this is net 
practical because: 

1. Many of the EBCDIC characters that 
represent the combination of two digits 

(one per half-byte) have no correspond- 
ing graphics in the chain, train, type- 
bar, cr MFCM print mechanism; and 

2. It is awkward to relate any graphics 
that are printed to a particular two 
digits. 



Packed Field (P in col. 44) must net be 
specified: 

1. For a constant 

2. For an alphameric field 

3. If Zero Suppress or an edit word is 
specified. 

Figure 54E includes illustration cf the 
Packed-Field specif icaticn . 

Constant or Edit Word — Cols. 45 -70 

An entry in cols. 45-70 respresents a con- 
stant if Field Name (eels. 32-37) is 
blank; it represents an edit word if a 
Field Name is specified. 

Although both items are specified in the 
same field, their uses are guite distinct. 
They are therefore treated separately, 
below. 
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Because only 26 columns are available 
for a constant in one Field-Description 
line, and two delimiting apostrophes are 
reguired, the maximum length of a constant 
is 24 positions. Under the Input Specifi- 
cations, a method is described for reading 
longer constants in from a card (see Using 
Input Data .Fiel ds f or Constant Da ta-- 
Heading Car ds ) . A longer constant for out- 
e simulated by continuing the 
ether Field-Description line 
A). 



put can also b 
constant in an 
(see Figure 54 
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Any of the 256 IBCDIC characters 
(including blank) may be specified in this 
field. A constant is always considered an 
alphameric literal and must, therefore, be 



1. Zero Suppress (Z in ccl. 38) must not 
be specified in the same line as a 
constant. 

2. Field Name (cols. 32-37) must be blank 
if a constant is entered in cols. 
45-70; otherwise, the constant is 
instead assumed to be an edit word (see 
below) . 

3. Packed Field (P in col. 44) must not 
be specified for output of a constant. 

Figures 54A and E illustrate constants, 
as well as Packed-Field specifications, End 
Position in Output Eecord, Elank-After, and 
Zero Suppress. The examples were chesen to 
maximize clarification, and are not neces- 
sarily a natural seguence of specifica- 
tions. (Figures 54A and B should be consi- 
dered as independent of each other.) 
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Figure 54A . Seme Examples pf Entries for Eield Same, EAGE Kurater, Zerc Suppress, Blank 
after, End Position ir Cutput Eeccrd, and Constant 



m 1 



Explanation of Entries in Figure 54A 

Ihe file named PBINT is assumed tc have 
teen associated with the printer, in the 
file-description specifications. 

^E§Siii2§.tions_lines_0 1_and_02 cause the 
output for lines 03-07 to te performed at 
detail-output time, or at overflow-output 
time if indicator OF is on. The fcrm is 
advanced tc the next carriage-ccntrcl tape 
punch in channel 1 before output, and is 
spaced 2 lines afterwards. 

Lines 03 , 04, and 05 show how a report 
heading that is 52 positions long can be 
printed, by specification of constants, as 
one continuous phrase — even though an indi- 
vidual constant is limited to a maximum of 
24 positions. (An alternative, involving 
an input card, is presented under Input 
Specifications : Using Input Data Fields 
for Constant Data—Heading Cards . I 

Line 06 indicates how data that changes 
each time the report is run, and may change 



at pcints during the run, can be printed as 
parts of a constant report heading, on the 
sane print line. 
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Line 07 causes four- digit consecutive page 
lumbers tc be printed at the top of each 
page, in print positions 117-120. Leading 
2eros are suppressed, and the zene over the 
units position is eliminated from the 
print-out. The number is printed on the 
first page as bbbl , unless a special start- 
ing number was entered (see Input,, Specif i^ 
catiens: C c n s ec u ti v e_ Numbering) and /or the 
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number was modified or created ty calcula- 
tion specifications. 

iiiHiiS-CJB-OS provide for printing a second 
heading line, two lines telcw tte first 
heading line (2 in col. 18 of specifica- 
tion line C1) , in the same program cycle. 
Whereas the entries in lin€s C 3— C"7 provided 
for report heading and page number, lines 
10-13 contain specifications fcr cclumr 
headings. After this output, the* form is 
advanced to the next channel-2 punch. 

line 11 illustrates that one constant may 
contain more than one column heading 
(SLSMAN and ACCOUNT) — it is merely a matter 
of convenience and appropriate spacing. 

Also shown is the fact that a constant 
may start with blanks, to align it 
appropriately. 

Lines, 10., and 11 show also that fields or 
constants need not be recorded in the 
sequence in which the data is to appear in 
the output record (End Position in Output 
Record: 28 is in an earlier specification 
line than 19) . 

In lines,J0 a _J2. £ __and 1J we chose to use 

separate lines for each column heading, 
rather than combining some as in line 11. 

Lines 12 and 13 also illustrate that con- 
stants, which are alphameric literals, may 
contain numeric values. 

Note, throughout, that Field Name (Cols. 
32-37) is blank where a constant is 
assigned. 

Line,, 14 calls for a group-printed report 
(printing only when L1 is on) , printed at 
total-output time. Printing begins on each 
page at channel 2 , below the two heading 
lines. 

Lines ,1 5_and_, 1 6 again illustrate that 
fields need not be recorded in the order in 
which the data is to appear in the output 
record. 

Lines 1 5, 1 8 1 „ 1 9 1 a n d 2 include the Zero- 
Suppress specification. Data from each of 
these four fields is printed without any 
leading zeros, and any zone in the low- 
order position is not transferred to the 
output core- storage area. 

The fields for which Z is specified in 
col. 38 must have been defined as numeric. 

Line 17 illustrates formatting of an output 
field by an edit word (discussed in the 



next section) . It is included here to 
emphasize that Zero Suppress (Z) must not 
be designated when an edit word is 
assigned, an\d to show that an edit word can 
expand the size of the field (End Position 
30 has been specified to center the field 
around the heading AMOUNT, which ends in 
position 28) . 



The field AMOUNT must have been defined 
as numeric to permit use of an edit word. 

The entry in cols. 45-70 is an edit 
word — not a constant — because Field Name 
(cols. 32-37) is not blank. 



o 
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If such indicator is used in Output 
Indicators of a subsequent Field- 
Eescripticn or File- Identification line, it 
is on — until new input data or calculation 
results turn it off again. 



Not e; We have treated Figures 54A and B as 
independent examples. If the output speci- 
fications to the file SUKCARD in Figure 54E 
were considered a continuation of the out- 
put specifications in Figure 54 A, Elank- 
After must not be specified in lines 17, 
18, and 19 of Figure 54A: otherwise, only 
zeros will be punched in SUMCABE from the 
fields AMOUNT, C0M12, andC0M15 — these 
fields will have been cleared by Blank- 
After specifications in Figure 54A , before 
cutput to the file SUMCABE. 

Li ne 20 illustrates output from the "hold" 
area of a table (see Table Look-up Opera- 
tions, under Calculation Specifications) . 
The data last selected (or as subsequently 
modified) from the table named TABBON is 
printed, ending in type position 70. 

This item is printed only if indicator 
5 is not on. 



Note: Throughout, note that the entries in 
cols. 40-43 are right-aligned, and that 
leading zeros may be recorded (lines 04 and 
05) or omitted. 
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Figure 54E. Continuation cf Examples cf Entries for Field Name, Zero Suppress, Blank 
After, End Fositicn in Output Record, Packed Field, and Constant 



Explanation of Entries in Figure 54B 

LLm*~§-Q.lzQ2 portray stacker selection, 
based on the status cf indicators, for 
cards on which no output operation is 
reguired. The file is assumed to be 
defined as a combined file in the file- 
description specifications. 

If the Matching-Record (MR) indicator 
and indicator 45 are on at detail-output 
time, the card is to be selected to stacker 
2; if MR is off, it is to enter the normal 
stacker cf the relevant I/C device. 

Line 4 specifies output at total tiire, 
provided the L1 indicator is on, to a file 
named SUMCARD. Assume that SUMCARD is an 
output file cf blank cards. This # then, 
represents the standard method of summary- 
punching, into a blank deck, at the end of 



each control group, and/or of interpreting 

the summary cards. 



Line_05 causes the contents of the field 
ACCNT to be punched, with its last (low- 
order) position in col. 7. Punching — not 
card document-printing — is called for, 
because ccl. 4 1 is blank (or, it could be 
0) . 



Line 06 causes the same data to be printed 

on the card, by print head 1 (1 in col. 

41), in positions 2-8, in unedited format: 

leading zeros are printed, and any zone in 
the low-order position remains. 

Iines_07-11 show that the fields need not 
be recorded in the order in which they are 
to appear in the output record. 



^^jm 
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Line_07 causes the contents cf the 7-digit 
AMOUNT field to be printed by print head 2 
(2 in col. 41) in positions 2-12. 
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The field AMOUNT must have been defined 
as numeric tc permit use cf an edit word. 

The entry in eels. 45-70 is an edit 
word — not a constant — because Field Name 
(cols. 32-37) is not blank. 

line 08 causes the same field also tc be 
printed by print head 1 in positions 58-64. 
Leading zeros and any zone in the lew-crder 
position are eliminated from the output by 
the Z in ccl. 38. 



The B in 
cleared tc z 
to the. outpu 
After instru 
pri nt ing spe 
Although dat 
subsequent 1 
transfers al 
put area bef 
printing (wi 
Identificati 
were in line 
contain enly 
fers called 



col. 39 caus 
eros after tr 
t area. Note 
cticn is in t 
cifications 1 
a transfer f c 
ine (line C9) 
1 data for pu 
ore the data 
thin the same 
en specificat 
09, the AMCU 
zeros at the 
for in lines 



es the f 
ansfer c 

that th 
he last 
ine for 
r punchi 
, the pr 
nching t 
for card 

File- 
iens) . 
NT field 
time of 
C7 and 



ield 
f th 
e Bl 
decu 
the 
ng i 
ogra 
o th 
doc 

If t 
wou 

the 



tc be 
e data 
ank- 
ment- 
field. 
s in a 
m 

e out- 
ument- 

he B 

Id 

trans- 



Line 09 provides for punchinq cf the 
AMOUNT-field data into eels. 14-17. The 
output will be in packed format (P in col. 
44) . 

The field AMOUNT is 7 digit-positions 
long (as implied by the edit word in line 
07) . In packed format, it consumes 4 posi- 
tions (see formula above, under Packed 
Field) . The field must have been defined 
as numeric fcr packed output. 

Neither an edit word nor Zero Suppress 
is permitted with Packed Field. In any 
case, it is not usual to use Zero Suppress 
for punched data, because leading zeros are 
normally desired in the card and because 
the sign ever the lew-crder positicn must 
ordinarily be punched for future use (at 
least, if it is a minus 
sign — 1 1-cverpunch) . 

line ,1 specifies punching of salesman code 
(field SALSMN) , with lew-crder pesitien in 



Line 11 causes the contents of the SALSMN 
field to be printed by print head 1, ending 
in position 17 (if a 6-digit field, then in 
positions 12-17) . leading zeros and any 
zone in the lew-crder position are eli- 
minated (Z in col. 38) from the print-out. 
The field must have been defined as numeric 
because Zero Suppress is used. 

Note : ACCNT and SALSMN are not punched in 
packed format, because it is assumed that 
subsequent reports may reguire qroup con- 
trol (Control Level) on these fields, which 
is not possible on packed fields. (see 
Pa cked, under Input Specifications , for the 
possibility of defining the same field a. 
second time, as alphameric, in order to 
control on a packed field. However, print- 
ing the group-iden tif yina data then pre- 
sents a problem.) 

Line s 12 and 13 provide for punching the 

contents of the fields COM 12 and COM 15 in 
packed format, in cols. 18-21 and 22-25, 
respectively. We have assumed that they 
are 6-digit fields (representing commis- 
sions at 12.5 and 15.0 percent, respective- 
ly) ; they each, therefore, reguire 4 posi- 
tions in packed format. The fields must 
have been defined as numeric for packed 
output. 

Lines 1 4 and 15 specify printing of the 
same 6-digit fields, by print head 2, in 
positions 15-20 and 22-27, respectively — in 
unpacked format. 

Leading zeros and any zone in the low- 
order position of each field are eliminated 
(Z in col. 38) from the printout. The 
fields must have been defined as. numeric. 

The fields are reset tc zeros (B in col. 
39) after transfer tc the output area for 
document- printing. This is the correct 
place for the Blank-After instruction, 
because transfer to the output area for 
punching (see lines 12 and 13) always takes 
place first. 

Also illustrated here is the groupinq- — 
rather than alternating — of punching and 
document-printinq instructions (note lines 
12 and 13 for punching of two fields, 
before the document-printing instruction 
for either field) . Grouping and alternat- 
ing are equally acceptable. 

Line 16 specifies the punching of data from 
a field (LASTYR; say, comparative sales 
figure frcm previous year) , in packed for- 
mat (7-digit amount field packed into 4 
positions) , without any document-printing — 
just to make it clear that a field may be 
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Blank-After is not specified: we have 
assumed that the total in this field dees 
not represent an accumulation cf data from 
detail cards, but is read in from a single 
summary card in each contrcl group. Clear- 
ing the field is then unnecessary. 

line 17 shews hew a constant can be 
document-printed: the phrase SAIS SUMBY is 
tc be printed by print head 1 in positions 
21-30. 
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Of course, Blank-After is net specified: 
it would clear the censtant to blank., and 
it would be lost after output to the first 
summary card. 

Note that Field Name (eels. 52-37) is 
bank when a constant applies. 

Line 18 shows how the page-numbering fea- 
ture can be employed egually well for 
consecutive- numbering of cards. The cards 
are punched with consecutive numbers in 
cols. 76-79 — starting with OOOt (12- 
cverpunch in col. 79) , unless another 
starting number was provided through an 
input card or a calculation specification. 

Z may be specified in ccl. 38 to eli- 
minate the 12-cverpunch, but leading zeros 
are then also replaced by blanks. (If an 
edit word is used for formatting, at least 
one leading zero is lost.) 

If Figure 54B is considered a continua- 
tion of Figure 54A, PAGE cannot be used 
here; otherwise, the contents of the field 



PAGE are incremented each time they are 
printed on the printer (the file named 
PRINT) and each time they are punched into 
the file SUMCARD. 

Line 19 illustrates the punching of a con- 
stant: the summary cards are identified by 
9 in col. 80. 

It also indicates that a censtant (an 
alphameric literal) may consist of numeric 
data. 

Note that Field Name is tlank when a 
constant applies. 

Note: Thrcughcut, ncte that the entries in 
cols. 40-43 are right-aligned, and that 
leading zeros may be recorded (lines 09 and 
10) cr emitted. 



Edit. Word — Cols. 4 5-70 

Pu r pos e of Edit _Word. An edit word permits 
formatting cf the output frcm numeric 
fields. 

Edit words provide for: 

1. Suppression of leading (non- 
significant) zercs tc a predetermined 
position of the field; 

2. Punctuation with decimal point and 
cemmas ; 

3. Fixed or floating dollar sign; 

4. Asterisk protection; 

5. Identif icaticn cf the field by any 
EBCDIC characters; 

6. Elimination of any zone from the output 
representation cf the lew-crder 
position ; 

7. Identification cf negative totals by CR 
symbol or minus sign; 

8. Insertion cf any constant data within 
or following the field; 

9. Insertion of spaces in the field. 

If no edit word is specified in a Field- 
Description line, the output from the field 
corresponds tc the contents of the field: 
the digits, including leading zeros, are 
printed or punched in adjacent positions 
without spaces, and the character in the 
low-order position is zoned if the field 
was zoned (see also point 4 under Rules for 
F ormi ng Edit Words, below) . 

The punch combination that corresponds 
to each zened EBCDIC character can be 
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ascertained from the EBCDIC table (Appendix 
D) . For standard digits and zones: 

A 12-positicn hole is punched over the 
lcw-crder digit if the field is signed 
plus (C zone) ; 

An 11-position hole is punched over the 
lew-order digit if the field is signed 
minus (D zone) ; 

Only the digit is punched in the lew- 
order column if the field is unsigned 
(F zene) . 

The same EBCDIC characters apply tc 
printed output. However: 

1. Not all EBCDIC characters are repre- 
sented on the print medium (chain, 
train, typetar, or MFCM print 
mechanism) ; 

2. The number of different graphics avail- 
able varies with the model and the type 
of chain, train, or typebar. 

3. The user may have had non-standard gra- 
phics installed; and 

4. In seme cases, an EBCDIC character for 
which the printing device is net 
designed may cause printing cf another 
character. 

Note particularly that a signed zerc (a 
freguent normal condition for the lcw-crder 
position of a signed numeric field) may be 
printed as only +(for C) or -(for 0) , cr 
the position may be left fclank entirely — 
depending en the particular printing 
device. 

Numeric printed output, unless it is 
knewn to be unsigned, is therefore usually 
edited either by an edit word or by the 
Zero-Suppress instruction (see above) . 
(Removal cf the Zone is also possible fcy a 
calculation specification — see Calculation 
Specifications : Move Ope ra tion . ) 

General Guidelines Pertaining to Edit Words 

If a numeric output field is to te 
edited (by use of an edit word) , the edit 
word is placed in the "Constant cr Edit 
Word" field in the same Field-Description 
line. 

An edit word is an alphameric literal 
(see A ljg h a m e r ic_Li te r a Is , under D ef inition 
of—Terms) • As such, it is enclosed in 
single apostrophes (card punch-ccmbinaticn 
5-8) . Col. 45 must contain the initial 
apostrophe, with the edit word itself 
starting in col. 46. An apostrophe fellows 
the end cf the edit word (see Alphameric 
Literals , under Definition of Ter ms and 
under C a leu 1 at ion_ Specifications for apos- 
trophes within a literal) . An edit word 



is, therefore, limited to a maximum of 24 
positions. Any of the 256 EBCDIC charac- 
ters (including blank) are valid within an 
edit word; but some characters, in certain 
positions, have a unigue significance in 
edit words. 



The fact that Field Name (cols. 32-37) 
is not blank (i.e., contains the name of a 
field) distinguishes an edit word from a 
constant (see Const ant , above). 

Nc matter how often a particular edit 
word is used (i.e., in how many Field- 
Description lines it appears) , it is stored 
by the program only once (i.e., it consumes 
only a single core storage area) . 

A Elank-After instruction (B in col. 
39) dees not destroy the edit word (in con- 
trast to a constant, which is then blanked 
out) . 

An edit word may be used to format 
numeric fields for: 

1. Printing on the printer; 

2. Dccument-printing (interpreting) on 
punch cards; 

3. Punching into cards. 

The latter use is not common, because 
it is not usual to insert punctuation, 
symbols, constants, spaces, or separate 
sign positions — cr to eliminate leading 
zeros--in punched numeric fields. 

The edit word applies to whatever output 
is specified in that Field-Description 
line. Editing output from a field in one 
Field-Description line has no effect on 
subsequent output from the same field (in 
contrast tc a Blank-After instruction) . 

An edit word must not be assigned if: 

1. The field is alphameric (i.e., if it 
has not been defined as numeric) ; 

2. Packed Field (P in col. 44) is speci- 
fied in the same Field-Description 
line ; 

3. Zero Suppress (Z in ccl. 38) is speci- 
fied in the same line; 

4. The field does net consist enly of 
valid digits (0-9) , except for a zone 
permitted in the low-order position 
(i.e., the digit portions cf the field 
must not contain hexadecimal A-F) . 

Where an edit word is assigned, suppres- 
sion of leading zeros in at least one 
position — the leftmost positicn--of the 
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field cannot be prevented. (See Program- 
ming Tips for circumvention.) 

When an edit word is assigned, any zone 
over the lew-order position cf the data is 
removed frcm that position in the output. 
However, a negative sign (hexadecimal E — 
see EBCDIC table. Appendix D) can fce repre- 
sented as CE or minus (-) to the right of 
the digits from the field; a plus sign (or 
any zone ether than hexadecimal E) is eli- 
minated completely frcm the cutput. 

The same edit word cannot be assigned to 
fields of varying lengths; i.e., all the 
fields with which a given edit wcrd is used 
must have the same size. 



it appears in the body portion, is counted 
as the equivalent of a blank position. 
These blank positions (including a maximum 
of one. zero or asterisk) are replaced by 
digits frcm the corresponding positions of 
the data field, or — where there are no sig- 
nificant digits to the left of the zero- 
suppression limit—the- output appears as 
blank (or asterisks) . 



-6-6, -6-6 0. -6-6 &CR*FINAL 



Body 



l Status ! Expansion 



The number of positions allowed in an 
edit word for digits frcm the data field 
must not te less than the number of posi- 
tions in the data field--it shculd be 
exactly the same numter. 



o 



Note: While it is permitted tc make the 
edit word larger than necessary to acccm- 
modate all positions of the field, this 
gains the user nothing: 

1. Ihe data field is left-aligned within 
the edit wcrd; therefore, there is 
still no way to prevent elimination of 
at least one leading zerc 

2. No core-storage space can be saved by 
making an edit wcrd large enough tc 
accommodate the largest cf several 
fields, since all fields with which one 
edit word is used must be cf egual 
size . 



o 



Edit Word Segments 

An edit word is composed of one, twe, or 
three constituent segments: 

1. The tcdy — reguired 

2. The status pcrticn — cpticnal 

3. The expansion — optional 

Figure 55 depicts the segments cf edit 
words. 

The bcd_y of an edit wcrd governs ( t) the 
transfer cf the digits in the data field- to 
the cutput record, (2) the termination of 
zero suppression or asterisk prctecticn, 

(3) punctuation, and (4) the insertion of 
other constants. Ihe body portion begins 
at the leftmost position cf th'e edit wcrd 

(i.e., ccl. 4§) , and contains the same 
number of blank positions as there are 
digit positions in the data field, plus 
positions for any desired constants and 
dollar sign. One zerc or cne asterisk, if 



-£'6-6-SLBS.,&'bfiOZ. TARE WT. 



Body 



-6-6, -5 fc-6, $0-6. "d-d-* 



Expansion 



H 



~v — 

Body 



Figure 55. Symbolic Portrayal of the Seg- 
ments of an Edit Word 

The program determines the end of the 
body segment by, countinq the blank posi- 
tions (including the leftmost or #) from 
left to right until the point is reached 
where the count is egual to the digit capa- 
city cf the data field. The pcint where 
that count is satisfied terminates the body 
of the edit word. 
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Edit words that contain no CR or 
(minus) symtol to the right of the body 
segment have no status portion. The ter- 
minal apostrophe is then placed to the 
immediate right of the body, unless an 
expansion segment fellows. 
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Bules for Forming Edit Words 

No te : Although the examples in Figure 56 
are explained in the next subsection, 
reference to Figure 56 while reading this 
subsection will help. 

1. Delimiting the edit wcrd. 



Any EBCDIC characters (including 
blanks) may make up an expansion sec- 
tion to the right of the status portion 
(or the right of the body, if there is 
no status portion) — to the terminal 
apostrophe. Call the number cf posi- 
tions in the expansion = E. 

The total number of positions in the 
edit wcrd must then be = B+C+S+E < 24. 

Jote: Because the edit word can be 
considerably lenger than the data 
field, the user must remember: 

a. That End Position in Output Record 
(cols. 4 1-43) refers to the right- 
most position of the edit word ; and 

b. To allow enough room for successive 
output fields so that the left part 
of one field is net overlaid over 
the right part of a previous output- 
field. 






The complete edit word must be enclosed 
in single apostrophes (card punch-com- 
bination 5-8) . 

Determining number of positions 
reguired in edit word for data-field 
digits. 

The number of blank positions (includ- 
ing, if present, one position with zero 
or asterisk) in the bcd_y portion of the 
edit word must be no less than (and is 
normally egual to) the number cf digit 
positions in the data field. Call this 
value = B. This is the only mandatory 
portion cf an edit wcrd. 

These blanks (and, if present, the 
first zero or asterisk) in the .body are 
replaced by the significant digits from 
the ecrrespendinq positions cf the data 
field specified in Field Name. Non- 
significant zercs may be represented in 
the output record by zercs, blanks, 
asterisks, or dollar symbol (see Zero 
Suppression, Asterisk Protection, and 
Floating Dollar Sign: 5, 6, 8, below) . 

Determining total length of edit wcrd. 

The bedy of an edit word may contain 
constants (any EBCDIC characters except 
blanks) besides the blanks and single 
zero or asterisk counted in the value B 
(item 2, above) , and a fixed or float- 
ing dcllar sign. Call the number cf 
these constants = C. 

The status portion may contain any 
EBCDIC characters (including blanks) 
preceding the sign symbol. Call the 
total number of positions in the status 
pcrticn = S. 



4. Zone elimination. 

/ 

The assigment of an edit word in itself 
removes any zone from the lew-crder 
digit in the output record. (See Status 
segment, item 10 below.) 

A numeric field is zoned in its low- 
order position if: 

a. It was zoned in that position when 
read in; or 

b. A Field Indicator was assigned to 
it in the input specifications. 

(This also converts minus zero to 
plus zero. ) ; or 

c. It was a Result Field in an arith- 
metic operation; or 

d. A zone was moved to that position 
in calculation specifications; or 

e. It was cleared by a Blank-After 
specification; or 

f. The input field was blank. 
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5. Zero suppression. 
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crder position) , and there 
or asterisk in the body of 
word, the entire area assi 
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blank. (Exception: fixed 
— see 7, below.) 

The leftmost zero (or a 
below) entered in the body 
word stops suppression of 
te.ycncl that position (the 
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limiting zero is included 
suppression) . Through the 
first zero in the body of 
word, or to the point of t 
nificant data digit—which 
first (further left) — all 
the tody of the edit word, 
these containing constants 
blank in the output record 
tion: dollar sign — see 7 
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Any zero (or asterisk — see below) , 
in the bedy of the edit word, to the 
right cf the first zerc (or asterisk) 
is considered a constant and always 
appears in the output (i.e., the left- 
most zero or asterisk terminates zero 
elimination) — see item 9, below. 
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word as ».•£*'. Eeqardless of 
whether the edit word is written 
as '.bb' or 'tb', the output 
will appear as 65. 



Similarly, .05 for a two- 
digit field will appear in the 
output as t)5. 
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(c) With two exceptions, it makes no 
difference — if leading zeros for 
the entire field are to be 
suppressed—whether a zero is 
entered in the rightmost position 
of the body, or not at all. 

The exceptions are (1) floating dollar 
sign, and (2) printing of the sta- 
tus portion when the data field 
consists of all zeros, with a minus 
sign. Both are explained below. 



6. Asterisk protection. 
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A significant digit (including a 
non-leading zero) in the corresponding 
position of the data field replaces the 
asterisk in the edit word. From the 
point of the first significant digit or 
the asterisk in the edit-word body, any 
constants in the body are retained for 
output. 

Any asterisk (or zerc) , in the body 
of the edit word, tp the right of the 
first asterisk (or zero) , is considered 
a constant and always appears in the 
output (see item 9, below). 

One leading zero is suppressed, even 
if the asterisk is in the extreme left 
position of the body. 



Output-Format Specifications (Optional) 207 



Note. Neither a fixed dollar sign nor 
a floating dcllar sign (see 7 and 8, 
below) can be specified in an edit word 
with asterisk protection. 



7. Fixed dollar sign. 



A dollar sign ($) placed in the left- 
most position of an edit word appears 
in that position of the output, regard- 
less of suppression of leading zeros. 
The tody of the edit word must be 
enlarged to provide the extra position 
for the dollar sign. 

If only one leading zero is to te 
suppressed (and no & symbols precede 
the suppression-limiting zero) — i.e., 
the suppression-limiting is in the 
leftmost digit position adjacent to the 
dollar sign--the $ becomes a floating 
(not fixed) dollar sign (see 8, fcelow) . 

A fixed (or floating) dcllar sign 
cannot be used in an edit word with 
asterisk protection (see 6, above). 
Specifying the dcllar sign instead as a 
preceding contiguous constant field is 
a simple solution. 

Floating dollar sign. 

A dollar sign ($) placed to the immedi- 
ate left of (i.e., next to) the zero 
that terminates zero suppression 
appears in the output record either (1) 
in the position occupied by that zero 
in the body of the edit word,- or (2) 
the position immediately preceding the 
first (high-crder) significant digit — 
whichever is farther left. The body of 
the edit word must be enlarged to pro- 
vide the extra position for the dcllar 
sign . 

Regardless cf where the floating 
dollar sign is placed in the body cf 
the edit word, the location cf con- 
stants in the body (such as punctuating 
commas, for instance) should net be 
shifted to compensate for the dollar- 
sign position: the extra position pro- 
vided because of the floating dcllar 
sign remains at the extreme left of the 
tody (see Figure 56) . 

A dcllar sign in the body cf the 
edit word elsewhere than in the left- 
most pesitien or to the immediate left 
of the first zero is neither a fixed 
nor floating dcllar sign: it is a con- 
stant (see 9, below) . 

A floating (or fixed) dcllar sign 
cannot be used in an edit word with 
asterisk protection (see -6< above) . 



Note 
(a) 



(b) 



(c) 



If the dcllar sign is placed in the 
leftmost position of the edit-word 
body, it is normally a fixed dollar 
sign (see 7, above) . However, if 
the zero that terminates zero 
suppression occupies the next 
position — i.e., only the minimum of 
one leading zero is to be sup- 
pressed (and no & symbols 
intervene)-- the $ becomes a float- 
ing dollar sign: it then appears 
in the output record either (1) in 
the position that corresponds to 
the leftmost leading zero, when the 
data begins with zero (s) or (2) to 
the immmediate left of the high- 
crder position of the data field, 
when the data begins with a signi- 
ficant digit — i.e., it floats 
between two positions. 
If the zero to end zero suppression 
is placed in the low-order position 
of the body of the edit word (i.e., 
all leading zeros are suppressed — 
as though no zero appeared in the 
body) , the floating dollar symbol 
(if one is specified) appears in 
the output record in the low-order 
position of the body when the 
entire data field is zero. This 
programming approach is meaningful 
only when a floating dollar sign is 
needed, but all leading zeros are 
to be suppressed. (See also item 
10 below, for status portion with 
all-zero data field.) 
Eecause a floating dollar sign must 
be specified in the edit word con- 
tiguous to {and to the left °f) the 
zero-suppressicn-limiting zero, a 
floating dollar sign cannot be 
placed ahead of punctuation (e.g., 
ahead of a comma) , to appear in the 
output to the immediate right of 
the punctuation if there are no 
higher-order significant digits. 
For example, in the edit word 
•bt$,0tb« ,the dollar sign 
is merely a constant (see 9, below) 
--net a floating dollar sign — 
because it is not contiguous to the 
zero. It is not possible to assign 
a floating dcllar sign to appear in 
the output in place of the zero in 
the edit word in this situation 
(where the zero follows a comma or 
other constant) . 



Constants within the body of an edit 
word. 

With the exceptions enumerated below, 
any EBCDIC characters within the body 
of an edit word are treated as con- 
stants: they appear in the output 
exactly as specified in the edit word, 
and in the corresponding positions. 



o 
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Exceptions: 

(a) A dcllar sign in the appropriate 
position for a fixed dcllar sign 
(see 7, above) or floating dcllar 
sign (see 8, above) is treated as 
described above. However, in any 
other location, it is treated as a 
constant. 

(b) The leftmost zero cr asterisk (one 
cr the other only) is treated as 
described above (items 5 and 6) . 
However, in any ether position, a 
zero or asterisk is treated as a 
constant. 

(c) The use cf blank spaces in the body 
cf an, edit word is confined to: 

(i) Output positions that corre- 
spond tc digit positions in the 
data field; and 

(ii) A leftmost blank to compensate 
for the space taken up by a 
floating dcllar sign. 

Therefore, spaces between data 
digits or constants cannot be created 
by leaving positions blank in the tody 
cf the edit word. However, an amper- 
sand (&) in the body cf the edit word 
provides a corresponding blank space in 
the cutput representation. An amper- 
sand itself cannot be reproduced in the 
cutput representation cf the body cf 
the edit word — it is net treated as a 
constant. 

10. Status segment. 

The status portion of an edit word is 
intended for identification (by CR or 
minus symbel) cf negative values. 



As d 
ment s ( 
word te 
replace 
(counte 
to acco 
field. 
or a mi 
word to 
body, t 
bedy th 
symbol 
edit wo 



escrx 

above 

rmina 

able 

d fro 

mmoda 

If t 
nus s 

the 
he po 
rough 
form 
rd. 



bed 
) . t 
tes 
zero 
m le 
te a 
he c 
ign 
righ 
siti 
the 
the 



under 
he bod 
with t 
or as 
ft to 
11 dig 
ensecu 
(-) , a 
t of t 
ens f r 
(firs 
status 



Edit Word 



y of 
he 1 
teri 
riqh 
its 
tive 
ppea 
he e 
om t 
t) C 
seg 



the e 
ast bl 
sk) po 
t) reg 
of the 

lette 
r in t 
nd of 
he end 
R or m 
ment o 



Seq- 
dit 

ank (or 
sition 
uired 

output 
rs CR, 
he edit 
the 

of the 
inus 
f the 



Any of the 256 EBCDIC characters 
(including blank) may precede the CR or 
minus symbol in the status segment. If 
the contents of the data field are 
negative, the entire status portion 
appears in the output record exactly as 
it appears in the edit word — except: 
an ampersand (5). in the status portion 
is replaced by a blank space in the 
output record. (Thus, either a blank 
or an ampersand in the status portion 
appears as blank in the output record.) 
When the contents of the data field are 
net negative, the entire status portion 
of the output record is blank. 

When the data-field contents are 
minus zero (possibly if read in as 
such, or through a move operation), and 
all leading zercs are tc be suppressed, 
the programmer has two choices: 

(a) If no or * is placed into the 
lew-order position of the body of 
the edit word, the status portion 
is blank in the output record. 

(b) If or * is placed into the low- 
order position of the body of the 
edit word, the status portion 
appears in the output record as 
specified in the edit word . 

If there is no CR or minus symbol in 
the edit word to the right of the body, 
there is no status portion. Anything 
to the right of the body is then part 
pf the expansion (see 11, below). How- 
ever, neaative amounts always appear in 
the output record as true figures (not 
complements) : if there is no status 
segment, they merely appear without a 
sign symbol. 

11. Expansion segment. 

Any positions to the riqht of the sta- 
tus segment — or, if there is no status 
sequent, any positions to the right of 
the body — up to the closing apostrophe, 
make up the expansion segment of the 
edit wcrd. 
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If the terminal apostrophe follows 
the body or status segment of the edit 
word, there is no expansion segment. 

Figure 56 illustrates edit words. All 
examples assume that ccl. 38 (Zero Sup- 
press) is blank (as it must be whenever an 
edit word is assigned) . The symbol t has 
been used extensively to represent a blank 
space in the output record, to avoid any 
possible confusion concerning the number of 
blank positions. (Zeros have not been 
slashed where no confusion with the letter 
is likely, in order not to clutter up the 
presentation.) 

A vertical dotted line has been inserted 
in the output representation (it dees not, 
of course, appear in the output record) to 
clarify for the reader the end of the body 
and status segments. 
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Points tc Note in Figure 56 

(Reference letters and numbers refer to 
"Example No." in the figure. The lettered 
items are explained in somewhat greater 
detail than the numbered ones. For the 
latter, only the ncn-routine points are 
emphasized. All cemments assume prior 
reading cf the entire section Edit, Word. ) 



Normal method of editing a ten-digit 
dcllars-and-cents field. Decimal ppint 
between dollars and cents; commas off- 
set each three positions in dollar 
area. A space follows the body (in the 
status portion, either a space or 
ampersand appears in the output as a 
space) . The status portion (S CR) 
appears in the output as specified 
(except that * replaces &) when the 
data is negative; otherwise the posi- 
tions are all blank. The expansion, 
here consisting of an asterisk, always 
appears in the output record as 
specified. 
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Illustrates punctuating an eight-digit 
guantity field with cemmas. Leading 
zeros and constants (e.g., commas) are 
replaced by blanks through the edit-word 
position (the next-to— last position 
in the body) . Therefore, if the entire 
data field is zero, a zero appears in 
the output record only in the low-order 
position. 
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Aqain, normal punctuating of a ten- 
diqit amount field. By placing the 
in the body in the ten-dcllar position, 
leading zeros and constants are 
retained starting with the unit-dcllars 
positicn. 



the body is not replaced by a data 
digit, and becomes a tlank in the out- 
put record (except when the ampersand 
is in an asterisk-protection area) . 



By 
immed 
the e 
ing d 
the c 
first 
ahead 
digit 
zero, 
stant 
must 
sign 
word- 
place 
repla 
remai 
digit 
right 



placin 
iate le 
dit-wor 
cllar s 
utput t 

digit 

cf the 
r the 1 

or the 
. Note 
be alio 
at the 
-not at 
d: whe 
ced by 
ns, if 

happen 
) • 



g a do 
ft of 
d body 
ign: 
o the 
or ret 

lef tm 
ef tmcs 

lef tm 

that 
wed fo 
extrem 

the 1 
re it 
a data 
the fi 
s to f 



liar sig 
the left 
, it bee 
it alway 
immediat 
ained co 
ost sign 
t retain 
ost reta 
an extra 
r the fl 
e left o 
ocaticn 
is place 
digit o 
rst outp 
all to i 



n to the 
most zer 
cmes a f 
s appear 
e left c 
nstant — 
if icant 
ed leadi 
ined con 
pesitic 
eating d 
f the ed 
where it 
d, it is 
r a blan 
ut-f ield 
ts immed 



c in 
loat- 
s in 

f the 
i.e. , 

ng 

n 

cllar 
it 
is 

k (or 

iate 



The status portion (minus sign) 
appears thus if the data is negative; 
otherwise, it is replaced by blank. 
The expansion (asterisk) always appears 
identically in the output record. 

Similar to C, except zero elimination 
is specified up to (but not including) 
the decimal point, CR is used as the 
symbel for a neqative value, and the 
expansion segment consists cf two 
asterisks. 
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Similar to D, but there is no status or 
expansion segment. Also, because the 
dollar sign is placed in the extreme 
left positicn of the edit word, and is 
not followed immediately by a 
suppression-terminating zero, it is a 
fixed dollar sign. It then always 
appears in the output in that position. 

This illustrates that a space can te 
left in the output reccrd between a 
fixed dollar sign and the first digit, 
even when the entire field contains 
significant digits. An ampersand in 
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he expansion segment consists of 
SS, because it always begins imme- 
ely after the minus sign or CR of 
status segment — or after the bouy 
ent, if there is no status portion, 
contents of the expansion seqment 
ys appear identically in the output 
rd, irrespective cf the sign of the 

(i.e., regardless of whether the 
us appears in the output as speci- 

or as blanks) . 



G. Zero elimination is not suppressed at 
all; data in the output record there- 
fore begins with the first significant 
digit. If the whole data field were 
zero, the entire edit word — includinq 
the sign, even for negative zero — would 
te replaced by blanks in the output 
record (see I, below) . 

H. Zero elimination is not suppressed at 
all (it always proceeds thrcuqh the 
position of the suppression-terminatinq 
zero or asterisk in the edit word) . 
However, because a suppression-termi- 
natinq zero is entered, the status por- 
tion will appear in the output as spe- 
cified (15CR) when th^ data field con- 
tains minus zerc. This is the essen- 
tial difference between H and I 
(below) . 

I. The status portion (CR) appears as 
blank in the output record when the 
data field consists of minus zero, 
because no suppression-terminatinq zero 
(or asterisk) appears in the body of 
tjne edit word (compare with H, above) . 

The expansion seqment (*) always 
appears in the output record as qiven 
in the edit word. 



Output-Format Specifications (Optional) 211 



Edit W 


ord 

1 • 


Example 
No. 


Source Data 


Appears in Output Record as: 




















♦. 


. 






£ 


c 


R 


* 


i 
















A 


0000000005 - 


6666666666 .05' 6CR 1 * 





















i 




V 


& 


N 




H 


A 


N 


D 


\ 












B 


00000000 


6566665560 i 6 ! *0N6HAND 


















$ 


P 




• 






'J 




V 


















C 


00000C0005 + 


666556666$ 0.051 6* 
1 




















$ 


i> 


. 






c 


R 


* 


* 


i 














D 


0034567890 " 


666$345,678.90JCRj** 


'1 






-$• 

















, 






1 


i 




















E 


0000000000 


$5566666666.00 


•f 


i 























• 




1 




- 




G 


P 





s 


s 


* 




F 


1234567890 - 


$612,3«5,678.90j6-|6GROSS 
























• 






- 


i 




' 


\ 














G 


00000000123 - 


66666666661.231 - 
























a 




£ 




C 


R 


* 


I 














H 


00000000000 - 


655656666666661 5CRJ * 








-$~ 














• 






c 


R 


* 


i 


















I 


0000000000 - 


6655566565655 1 56 ! * 


















4 




• 











i 




















J 


0000135792 


*****1,357.92|6 


No Edit Word 


1 


0000135678 


0000135678 


2 


0000135678 + 


000013567H 


3 


0000135678 - 


000013567Q 




















































4 


0000000000 


6555656666 




















































5 


0000135678 + 


6656135678 




















































6 


0000135678 - 


5555135678 




















♦ 
































7 


0000135678 - 


5566135678 


'£ 


















































8 


0000135678 + 


6000135678 
























c 


R 


* 


N 


E 


T 


i 
















9 


0000135678 + 


55661356781 666 |*NET 
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R 


* 


N 


E 


T 


i 
















10 


0000135678 - 


6566135678 !5Cr'*NET 






















& 


- 




* 


N 


E 


T 


i 
















11 


0000135678 - 


66661356781 6- !6*NET 






















* 


N 


E 


T 


^ 


C 


R 


& 


* 


i 












12 


0000135678 


66661356781 65656661 &* 






















* 


N 


E 


T 


& 


C 


R 


& 


* 


i 












13 


0000135678 - 


6666135678| *NET5CRJ&* 






















* 




P 


R 





F 


r 


T 


i 














14 


0000135678 


55561 35678 1 *5PR0FIT 
i 


'1 






















& 


- 




N 


E 


T 
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15 - 


0000135678 + 


$56661 35678 i 55 '6NET 


' $ 






















& 


- 




N 


E 


T 


i 
















16 


0000135678 - 


$66661356781 5- 1 6NET 


'£ 


$ 




















- 




N 


E 


T 
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17 


0000135678 


6$000135678i5i'5!neT 
















t 


<J> 






'& 


c 


ft 


* 
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18 


0000135678 - 


5665$135678|6CRi* 
















* 


♦ 






& 


c 


R 


* 


» 




















19 


1234567809 - 


$1234567809.1 6CR1* 






















o 


- 




7 





T 


A 


L 


• 














20 


0000000000 - 


55666666661 66 1 6T0TAL 




















* 


t 


- 




T 





T 


A 


L 
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21 


0000000000 - 


6666555565 i 6- 1 6T0TAL 
1 1 


'1 






















& 


c 


R 


* 


i 




















22 


oooooooooo - 


$655665665616661 * 


•t 




















$ 


& 


c 


R 


* 


i 




















23 


0000000000 - 


$5665655655! 6CR1 * 


'i 
















• 








c 


R 




G 


R 





S 


s 


i 










24 


oooooooooo + 


$5666656600 1 656 6GROSS 
















1 











c 


R 




G 


R 





5 


5 


/ 










25 


oooooooooo - 


65666656$ 1 5CR 1 6GROSS 




















i 





- 


1 


























26 


oooooooooo - 


6556656665$; ~ 
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& 
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Q 
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27 


oooooooooo - 


****t*-****j gc R 
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& 
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R 


i 
























28 


oooooooooo - 


********qq! 5c R 


f * 
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29 


0000135678 - 


♦000135678 


* * 




















I 






























30 


1234567890 + 


1234567890 




















* 
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31 


0000135678 - 


****135678 






















. 






t 


c 


R 


f* 




N 


E 


T 
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32 


0000135678 — 


666661, 356 . 78 ' 6CRI *6NET 


,. 












f 








• 
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— 
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E 


T 


1 








33 


0000135678 


666661 ,356.78' 566 J *-NET 


1 $ 


t 


i 




















• 
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E 
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i 












34 


0000135678 + 


$660,001,356.78|6NET 
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# 




• 
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T 
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35 


0000000005 


555566656 $0 . 05 | 6NET 




















$ 





• 






/ 






















36 


0000000005 


566666656 , 5$.05 




















4 


$ 


• 






— 


i 




















37 


1234567890 - 


$12,345,678,901- 








) 
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* 
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ft 
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38 


0001356789 - 


6665$13,567.89jCR 




















* 








* 


c 
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39 


0000135678 + 


*****1,356.78|565[ ** 








"* 
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* 


/ 






















40 


00000000 - 


6556655. 00 t6CR|* 
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Edit Word 


Example 
No. 


Source Data 


Appears in Output Record as: 
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41 


oooooooooo - 


********** 00'- 

- 1—, — , .- 
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* 


4> 
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42 


0000001234 


BBBBBB? , 1 2 . 3 4 | B ] SALES 


' *\ 


& 
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43 


1234567890 - 


$B12,345,678.90ICR* 




























- 





L 


D 




8 


A 


L 


N 


C 


E 


> 


44 


1234567890 - 


1,234, 567, 890 ! - ! OLDBBALNCE 





























_ 





t. 


D 




6 


A 


L 


N 


C 


E 


i 


45 


oooooooooo + 


BBBBBBBBBBBBO ; b \ OLDBJBALNCE 






















D 





L 


L 


A 


R 


S 






C 


E 


N 


T 


S 


i 


46 


000C135678 


BBBBB1 , 356DOLLARS78 ! CENTS 












D 





L 


L 


A 


R 


s 






C 


E 


N 


T 


s 


i 












47 


000000 + 


bbbbbbbbbbbbbb\ CENTS 













D 





L 
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R 
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C 


R 
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48 


000000 


BBBB0DOLLARS00[ bbbbbbbb 






t 




L 


B 


s 


, 


& 









Z 


. 


T 


A 


R 


E 




- 


/ 










49 


000002 + 


6BB0LBS.&0 2|BBBBBBB&& 








♦ 


L 


B 


s 


. 









z 


, 


T 


A 


R 


E 


' 
















50 


000002 - 


BBBBLBS . 2 ] OZ . TARE&- 


' 1 












- 










1 




























51 


095140036 


&95-14-0036 


'1 




W 


R 


S 


, 






M 


I 


N 


s 


, 







i 


i 


c 


L 





c 


K 


i 






52 


0042 


B0HRS . 4 2 ! MI NS . BO ' CLOCK 













, 






i 


































53 


000000 


BB&BB.0O 












, 







i 


































54 


oooooo 


BBBBBBB0 










* 


) 









. 






i 


























55 


00123456 


BBB1$,234,56 























-* 






i 
























56 


oooooooooo 


BBBBBBBBB0+00 


' 1 












t) 






i 
































57 


001234 


B, 012,034 












* 










* 






i 
























58 


0000001234 


******* ^ 012*34 


' g. 






# 




P 










i 






























59 


013579 


***130,579 












- 






& 


L 


A 


T 


E 


R 


i 






















60 


093069 


69-30-69! &LATER 






& 






1 






& 


L 


A 


T 


E 


R 


i 






















61 


093069 


B9B30B6 9; &LATER 






/ 






1 






/ 


































62 


100169 


10/01/69 




) 
















• 






— 


/ 
























63 


000000015 - 


BBBBBBBBBB15!- 




1 








1 




<P 




• 






- 


< 
























64 


000000005 


BBBBBBBB0.05iB 
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1/ 



4, 



o 



7. 



Illustrates asterisk protection. 
Asterisks replace all positions in the 
fcody (including those with constants 
— like commas, for instance) to the 
left of the first siqnificant digit, 
through the position that contains the 
left-mcst asterisk in the edit-wcrd 
body. (The asterisk in the edit wcrd 
itself is replaced by any significant 
digit that may be in the corresponding 
position of the data field.) 

If the asterisk were in the right- 
most position of the edit-word body, 
asterisks would appear in the output 
record for the entire body of the edit 
word when the data is all zero (if it 
were minus zero, the minus sign would 
appear) . 



2, and 3. No edit wcrd. The data 
appears in the output record as con- 
tained in the data field. Note that 
the lew-order position is zoned in the 
output record if zoned in the data 
field. 

5, and 6. A blank edit word is 
assigned. All leading zeros are 
blanked and a zone in the lew-crder 
position is eliminated in the output 
record. Negative values are not 
identified. 

The effect is. the same as in 4, 5, and 
6. If the edit word contained a sta- 
tus portion, the in the body would 
cause the status portion to appear in 
the output record also for a value of 
minus zero. In examples 4, 5, and 6, 
a status segment would appear as blank 
for a minus-zero value. 

Although the suppression-limiting is 
at the extreme left, suppression of 
the first leading zero cannot be 
avoided. 



and 10. The 
the output 
blank for p 
the first t 
modate the 
position. — -a 
status segm 
right of th 
minus symbc 
which alway 
the output 
segment is 



status p 
for nega 
ositive 
en blank 
data fie 
lso blan 
ent. An 
e status 
1) repre 
s appear 
record — 
blanked. 



crti 
tive 
valu 
pes 
Id, 
k--i 
y po 
-seg 
sent 
s id 
even 



en a 
val 

es . 

itic 

the 

s pa 

siti 

ment 
exp 

enti 
if 



ppears in 
ues; it is 

Because 
ns acccm- 
eleventh 
rt of the 
ons to the 

end (CR or 
ansion , 
cally in 
the status 






11. An ampersand in the status segment 

alsc appears as blank in the output. 
A minus sign, instead of CE, is illus- 
trated. The tlank following the CR or 
minus is part of expansion. 



12 and 13. The *NETS to the left of CE or 
minus (and to the right of the body) 
is part of the status segment. There- 
fore, it appears in the output record 
as tlank when the status does not 
apply (value not negative) . However, 
the &* to the right of CR or minus 
represent the expansion segment, and 
therefore always appear in the output. 

14. There is no minus or CR to the right 
of the body. Therefore **PROFIT is 
expansion, and appears in the output 
regardless of the sign of the data 
field. 

15 and 16. Similar to 11, but a fixed dol- 
lar sign is shown. Note that an extra 
position was added to the body to 
accommodate the dollar sign. 

17. When the dollar sian appears to the 
immediate left of the suppression- 
limiting 0, it becomes a floating dol- 
lar sign--even when it occupies the 
leftmost position in the edit word 
(see No. 34 for contrast) . 

18 and 19. Floatinq dollar sign is illus- 
trated for different numbers of lead- 
ing zeros. Note extra position in 
edit word to compensate for the dollar 

sign. 

20 and 21. When the contents of the data 
field are minus zero, the status por- 
tion is blanked unless a (or 
asterisk) appears in the body of the 
edit word. Regardless, however: the 
expansion segment is reproduced in the 
output record. 

22 and 23. This illustrates the same as 

items 20 and 21, but points out that- 
even with a dollar sign — the status 
portion is blanked when the value is 
minus zero, unless (or *) appears in 
the body of the edit word. 

24. Jn example of some zeros appearing in 
the output record when the entire 
field is zero, Zero-elimination 
extends through the in the edit 
wcrd, leaving two data positions whose 
zeros appear in the output (the third 
blank after the edit-word belongs to 
the status segment, because all ten 
data positions have been allowed for 
before that position) . 

25. As 24, but with floating dollar sign 
replacing the last suppressed zero. 

26. Presence of a (or *) in the body 
causes the status segment to appear in 
the output even for a minus zero value 
(see alsc 21 and 23). Because the 
dollar sign is adjacent to the in 



Output-Format Specifications (Optional) 213 



27. 



28. 



the low-order position, it is a float- 
ing $ and appears in the output record 
in the low-order position of an all- 
zero data field. This gives full pro- 
tection with a floating dcllar sign, 
even for all-zero data, when all lead- 
ing zeros are to be eliminated. 



Incidentally illustrated is a sta- 
tus segment consisting only of a minus 
sign, and no space. 

Asterisk protection with complete eli- 
mination of all leading zeros. The 
status segment appears in the output 
for a minus zero field when there is 
an asterisk (cr zero) in the tody of 
the edit word. 

Asterisk protection tc a certain posi- 
tion; thereafter, any further leading 
zercs appear in the output. 



29 and 3C. Asterisk protection and zero 
elimination for a single position. 
Note that the asterisk is replaced by 
a significant digit in that position. 

Eecause there is no status segment, 
a negative value is net identified. 

31. Asterisk protection and zero suppres- 
sion for entire field. Significant 
digits take precedence, and replace 
the asterisk. 

32 and 33. A methed for punctuating a ten- 
digit dollars-and-cents field. Punc- 
tuation and zercs tc the left of the 
first significant digit are blanked. 
The decimal point is also lest when 
there are less than three significant 
digits (see item 63) . The status seg- 
ment is blanked for an all-zero field. 
The expansicn portion always appears. 

The minus sign tc the left cf NET 
in No. 33 was inserted to point out 
that it is part of expansicn — not 
status — because a sign symbol (CE) 
already appeared to its left. 

34, The ampersand — which appears in the 
output as a space — irakes it possible 
tc keep the dcllar sign fixed, while 
limiting zero suppressicn tc the mini- 
mum cf one position (contrast with 
item 17) . All punctuation is 
retained — regardless cf leading 
zercs --because the in the edit word 
is placed tc the left of the first 
comma. 

35-38. Standard methods for placing the 
floating dcllar sign to retain at 
least the decimal point, regardless of 
numter of leading zercs. 



Note that the extra position to 
compensate for the floating dcllar 
sign is at the extreme left of the 
edit word — not where the dollar sign 
is recorded; i.e., the location of the 
comma is not changed. 

39. Asterisk protection and zero elimina- 
tion tc the decimal point, retaining 
the decimal point regardless of number 
of leading zeros. Note that asterisks 
replace also the punctuation (or any 
constants) where leading zeros are 
suppressed. (See also No. 41.) 

The second asterisk is part of the 
status segment, and appears in the 
output only for a negative value. The 
third and fourth asterisks form the 
expansion, and always appear in the 
output. 

40. A standard programming technigue for 
retaining the decimal point while eli- 
minating all leading zeros to the 
left. 

Similar to A , but shows status seg- 
ment for minus-zero value. 

41. Similar to 39, but the status portion 
consists only cf a minus sign and 
there is no expansion segment. The 
effect on a minus-zero field is shown. 

42. Shows that the constant (in this case, 
a comma) follows the dcllar sign in 
the output record, if the floating 
dcllar sign and the suppression- 
limiting zero immediately precede a 
constant and there is a relevant num- 
ber of leading zeros. 

In the case of a comma, this has an 
awkward-looking effect; in case of a 
decimal point, it is a normal approach 
(see item 36) . 

43. How to maintain a space between a 
fixed dollar sign and the first data 
digit, when all digits in the field 
are significant (no leading zeros) : 

an S in the body appears as a space in 
the output record. 

44. Normally punctuated quantity field. 
However, all leading zeros (including 
units position) will be suppressed 
(compare to item 45) . 

45. Normal method for showing a single 
zero in the output record when the 
data-field contains only zeros. 

46-50. Other constants within the body of 
the edit word behave like punctuation 
(which is the same as constants) : 
constants to the right of the first 
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significant digit or the suppression- 
limiting zero appear in the output. 



Note that a constant to the riqht 
of the last data-digit position is 
part either of the status or expansion 
segment. If CR or minus symbol fel- 
lows, it is part of the status, and 
appears in the output only for nega- 
tive values (note items 48-50) ; if no 
sign symbol follows, it belongs to 
expansion, and always appears in the 
output record (see item 47) . 

Items 48-50 also show the effect on 
constants of different placement of a 
suppression-limitinq 0. In item 49, 
an ampersand inserted after the first 
constant provides a space following 
that constant in the output record. 

51. A hyphen (a minus symbol) is used 
within the body of the edit word. A 
social security number is shown. 

If the initial zero must appear in 
the output, the data must be broken up 
intc three separate fields, no edit 
words can be used, and the hyphens 
must also be specified as separate 
output constants. (See Programming 
Tips . ) 

52. Again, an edit word containing con- 
stants in the body, followed by expan- 
sion. Included is an illustration of 
an apostrophe within an edit word 

(i.e., within an alphameric literal). 

53 and 54. Illustrate effect, on decimal 

point (or any other constant) and fol- 
lowing zeros, of different placements 
of the suppression-limiting zero--when 
the field contents are zero. 



It is not possible (in this RPG) to 
place a floating dollar sign so that 
it replaces a constant (e.g., a comma) 
in the output record when the' first 
significant digit follows the constant 
(for instance, when it follows a 
comma) . 

56-59. A zero or asterisk after the left- 
most zero or asterisk is a constant — 
not a suppression-limiting or 
asterisk-protection symbol. 

Items 58 and 59 again also show 
that asterisk protection supplants not 
enly blanks but also other constants 
to the left, including an ampersand. 

60-62. Three examples of editing a date 

field. Note that one leading zero is 
suppressed even- if were placed in 
the leftmost position of the edit 
word: therefore, since month numbers 
have at most one leading zero, there 
was no point in specifyinq a suppres- 
sion limiting zero. 

Item 61 shows the use of ampersand 
in the edit word to retain a blank 
space in the output record. The 
characters SLATER, however, form an 
expansion section. An ampersand in 
the expansion appears as such in the 
output. 

63* Shows what happens to the decimal 

point when there are less than three 
significant digits in a longer field, 
and no suppression-limiting zero is 
specified. 

64. Shows one method of preventinq loss of 
the decimal point when there are less 
than three siqnificant diqits in a 
lenaer field. 



55. Included to emphasize that a dollar 
sign that is separated frcm the 
suppression-limiting zero— even if 
only by a comma—is net a floatinct 
dollar sign, but a constant. 



Moving the suppression-limiting 
zero one position further right still 
preserves the decimal point, but eli- 
minates the zero to its left in the 
output. 
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o 



One application example (Figure 5) appears 
early in the manual, to serve as an intro- 
duction to the RPG approach. The numerous 
other fragmentary program examples up to 
this point were developed to illustrate 
various individual functions that can be 
performed with the Report Program Generator 
(RPG) . 

The following three program examples 
illustrate the complete program specifica- 
tions for: 



correspond to his particular Model 20 card 
reader — the program will run with any Model 
20 reader. 

The second, more complex, application 
example reguires 8K bytes of core storage, 
and has been designed to take advantage of 
all the features of the IBM 2560 MFCM: 
reading cards from both hoppers, punching 
into cards that have also been read 
(combined file) , interpreting (card 
document-printing) , and stacker selection. 



1. A sales commission calculation and 
report; 

2. An order-entry pre-billing application: 
inventory control and crder-item price 
extension, involving also matching of 
files; and 



The third example can also be run within 
4K bytes of core storage. It has been 
written for the MFCM, to take advantage of 
interpreting (if installed) ; but otherwise 
it can be run on other Model 20 I/O units, 
if the File Description specifications are 
amended to correspond. 



3. A simple invoicing operation with sum- 
mary punching of accounts receivable 
cards. The detail cards processed in 
example 2 are utilized; but side-by- 
side printing cf ship-tc and sold-to 
cards is also demonstrated, as well as 
table look-up. 

The first sample program can be compiled 
and executed on a system equipped with 4K 
bytes of core storage in the CPU, any one 
cf the Model 20 card-reading devices, and a 
printer. A card deck comprising the speci- 
fications and data for this example is sup- 
plied by IBM's Program Information Depart- 
ment together with the RPG compiler. In 
that deck, the IBM 250 1 is assigned as the 
card reader. However, the application was 
deliberately designed not to be dependent 
on a particular read device: the user need 
only change the Device code in the first 
File Description Specifications card to 



; Note : The interpreting feature is avail- 
table only on the 2560 MFCM, Model A1. 

SALES COMMISSION CALCULATION AND REPORT 

A commission report is to be prepared using 
invoice summary cards (Figure 57) for the 
source data. The cards are in seguence by 
salesman number. The invoice summary cards 
are coded with a 5 in column 1; other cards 
that are maintained as part of the invoice 
file--and are not to be processed — do not 
contain a 5 in col * 1 . 

The commission amount is calculated on 
the net invoice amount. The percentage of 
commission depends upon the net invoice 
amount : 

For net invoice amounts up to (and 

including) $10,000 — 10% commission 
For net invoice amounts above $ 10,000 — 
12% commission 
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Figure 57. Sales Commission Calculation, Format of Invoice Summary Card 
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The commission is calculated on each 
invoice summary card, and the pertinent 
input and calculated data is detail 
printed. A total commission amount for 
each salesman and a final sum of commission 
amounts are accumulated and printed. 

File_D_escr i p t jen S pe ci f ic at ion s (Figure 58) 

Only two specifications lines are neces- 
sary for this application. In the first 
line, the input file name INPUT is assigned 
to the card deck that contains the invoice 
summary cards, and that file is associated 



with the IBM 2501 Card Reader by the Device 
code READ01. In the second line, the out- 
put file named PRIM is associated with the 
printer (IBM 2203 or 1U03). 

Input Specifications (Figure 59) 

Specifications line 01 provides for identi- 
fication of the invoice summary cards: 
character 5 in col. 1. Resulting Indicator 
11 is assigned to this card type. 

The Sequence entry (cols. 15-16) is 
alphabetic, because the presence of the two 
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card types is optional and f when both are 
present, either may be first or they may be 
intermixed. 

Lines 02-05 describe the fields to he read 
from the invoice summary cards. Note that 
fields net used in this job are not 
described: it would waste cere storage 
space to do so, and serves no purpose. 

Although invoice number (IVOICE) and 
Salesman number (SALESM) are numeric, they 
need not he defined as numeric. On the 
ether hand, customer number (CUST) must be 
defined as numeric because Zero Suppress is 
used for that field in the Output-Format 
Specifications. (Since COST is not used in 
an arithmetic or numeric compare operation, 
any number of decimal positions within 
field size — i.e., C-7 — can be specified in 
col. 52.) 

Invoice amount (IVCAMT) must have 2 spe- 
cified in Eecimal Positions, because it is 
to be used in arithmetic operations where 
proper decimal alignment matters and where 
all fields must be numeric. 



Because Seguence (cols. 15-16) in line 
01 contains an alphabetic entry, the pro- 
gram always first attempts to match each 
card against the Record Identification 
Codes in line 01 (see Nature of__the Card- 
ll£e_ S €5 uence_C heck) . Only if it is not an 
invoice summary card (i.e., not 5 in col. 
1) is the card matched to the Record Iden- 
tification Codes in line 06. Since cols. 
21-41 are blank in line 06, all cards 
without character 5 in col. 1 satisfy the 
criteria for line 06. This is a good tech- 
nigue for providing for "ether card types." 
There must be an entry in cols. 15-16 for 
every card type; if there is no entry in 
cols. 15-16 for a card type that can occur 
in the data deck, the system would stop 
because of an unidentified card type. 



A card-type Resulting Indicator (cols. 
19-20) is net needed in line 06 in this 
particular example. All calculation and 
output operations that are pertinent only 
to the invoice summary cards are condi- 
tioned by indicator 1 1 . 
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In__line 05, salesman number is set up as an The 

alphameric control field cf level 1. Cnly ignored 

cards for which indicator 11 is en are con- serves 

sidered in the control-field comparison which t 

(see alsc cemment for line 01 cf page 04). by IBM) 

employe 

IiHS_06 represents ether cards in the same the Fil 

input deck. These cards aie part cf the form), 

same deck as the invoice summary cards, but the nor 

are tc be passed through tlie I/O device other c 

without any processing. stacker 



2 in col. 42 (Stacker Select) is 

when the IBM 2501 Card Reader 
as the input device (the form in 
his program is written, and supplied 

If a different card reader is 
d (after changing the first card in 
e Descripticn Specifications to con- 
the invoice summary cards will enter 
mal stacker' of the device and the 
ards in the deck will be selected to 
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Calculation Specifications (Figur e 6 0) 



Specifications lin e 1 causes the net 
invoice amount to te compared with the 
numeric literal 10C00. Resulting Indicator 
22 is turned on if the invoice amount 
exceeds $10,000; otherwise indicator 22 
remains (or is turned) off. Note that 
decimal alignment is performed fcy the pro- 
gram itself in numeric compare operations. 

lin e 2 provides for multiplying the net 
invoice amount by 12 percent, if indicator 
22 is on (invoice amount greater than 
$10,000); whereas line_0_3 causes mul- 
tiplication of the invoice amount ty 10 
percent, if indicator 22 is off (invoice 
amount less than, or egual to # $1 C, C0C) . 
Thus, for any one invoice summary card, the 
specifications in either line 02 or line 
03 — but net both — are executed. (Decimal 
alignment is automatic in arithmetic 
operations. ) 






T 
fiel 
calc 
in 1 
in 1 
line 
and 
(yie 
and 
the 
drop 



he r 

d, a 

ulat 

ine 

ine 

s 02 

.12 

ldin 

only 

2 ri 

ped 



esul 
rd m 
ion 
C2 ( 
C3) . 

and 
or . 
Q 4 

2 a 
ghtm 
af te 



t Field 
ust ther 
specific 
it could 
Half A 
03. Si 
10) cont 
decimal 
re speci 
ost deci 
r half-a 



(COM 
ef or 
atio 
equ 
d jus 
nee 
ains 
plac 
fied 
mal 
d jus 



M) was 
e be d 
ns. T 
ally w 



t is s 
each f 

2 dec 
es in 

for t 
positi 
tment. 



net an input 
efined in the 
his is dene 
ell have been 
pecified in 
actor (IVCAMT 
imal places 
the result) , 
he result, 
ons are 



© 



A Field Length of 8 positions is speci- 
fied for the result field: an 8-position 
field is multiplied by a 2-position field, 
which results in a maximum of 10 positions; 
two decimal positions are dropped, leaving 
a maximum of 8 positions. 

line 04 causes the commissicn te be added 
into a field named SUM, which is estab- 
lished (at program-generation time) by the 
specifications in eels. 43-52 in this line. 
The individual commission amounts calcu- 
lated on each invoice summary card are 
accumulated in SUM for a commission total 
by salesman. 

The Blank-After instruction in the 
Output-Format Specif icatiens clears the SUM 
field to zero at the end of each salesman's 
grcup of cards, so that it is ready for 
accumulation of commissions for the next 
salesman . 

This line also illustrates using the 
same field as addend and result field (as 
does line 05) : A+B = B'. (The field names 
in Factor 1 and Factor 2 could egually well 
be reversed.) 



Note: 

1. All of the above operations are per- 
formed at detail-calculation time 
(eels. 7-8 are blank) , which is the 
normal method for handling this type of 
application. 



2. All of the above calculations are con- 
ditioned by indicator 11. Therefore, 
they are performed only when an invoice 
summary card is being processed. 

Line 05 causes the total commission amount 
for each salesman to be added to the field 
FINTCT, to provide a grand-total of commis- 
sions at the end of the report. FINTOT is 
one position larger than SUM, to assure 
capacity for the larger total. 

The operation is performed at total- 
calculation time, provided indicator L1 is 
on; i.e., at the end of every salesman- 
number control group — after the commission 
calculated en the last card of the group 
was added to SUM, but before the SUM field 
is cleared at total-output time. 

Note that all detail-time calculation 
specif icatiens precede those for total 
time . 



Ou tput-Format Specifications (F igure 61) 



Page 04 

Specification lines 01-08 provide for 
printing columnar headings at the top of 
each page. 
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File Description Specifica- 
1 calls for the printing to 
overflow-output time; line 
tion with the H in col. 15 
qually well be a D) of line 
or the same printing at 
time for the first card of 
number control group (Control 
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on when a control break 
same program cycle in which 
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his particular application, 
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11 data here involves con- 
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Because nc forms-control specifications 
(cols. 17-22) are entered in line 02, the 
instructions in line 1 apply to both 
lines: the form is advanced tc the next 
channel- 1 punch before printing at. 
overflow-output time or at detail time for 
the first card of a control group. After 
printing of the heading line, the form is 
advanced 3 spaces, to leave two blank lines 
before the detail data. 

Because OF is specified in. Output Indi- 
cators of a File-Identification line, nc 
automatic overflow forms advance takes 
place--it must be specified (as it is in 
line 1) . 

Mote: Tctal-time output always precedes 
overflow-time output in the same prcgram 
cycle; therefore, totals are normally 
printed en the eld page before fcrms 
advance tc a new page during overflew time. 
However, in the particular application 
described here it may appear as though the 
total were printed on the next page: 
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lines C3-08 define the constants that are 
to be printed en the. first line cf each 
page as columnar headings. 

Lines _ 09 -1 6 specify the detail printina 
from invoice summary cards. 

Line 09 specifies that the output is tc 
take place at detail time (D in col. 15), 
but enly for invoice summary cards (indica- 
tor 11). The form is advanced twe spaces 
after each detail line (2 in ccl. 18). The 
file name (PEINT) need net be repeated, 
since it is the same as that fcr the last 
preceding File-Identif icaticn line. 

Lines 10, and 13-1 6 describe the data 

fields tc be printed . 

The output for the fields CCMM and 
IVCAMT is formatted by edit words — leading 
zeros to the decimal point are suppressed, 
and appropriate commas are inserted tetween 
each three positions where significant 
digits appear (the fields were defined as 
numeric, and therefore can be edited) . The 



assignment of an edit word eliminates the 
plus (C) zone in the lew-order position of 
COMM from the output; if IVCAMT was zoned 
in the input card, that zone is also eli- 
minated from output by virtue of the 1 edit 
word . 



Any leading zeros, and a possible low- 
order-positicn zone, are eliminated from 
the output for CUST by Zero Suppress (Z in 
col. 38) . The field must have been — and 
was — defined as numeric. 

Field selection is performed in lines 11 
and 12: one of the two constants (10 % or 
12 %) is printed, based en the result of 
the COMP operation in the calculation 
specifications (indicator 22 off or on) . 

The L1 in Output Indicators of line 16 
conditions the contents of the field SALESM 
to be printed only when indicator 11 is on 
at detail-output time--i.e., on the first 
card of a control group (group-indication) . 

Li nes 17-19 provide for the printing of the 

commissicn total (SUM) at the end cf each 
control group (LI in Output Indicators of 
File-Identification line) , at total-output 
time (T in col. 15) . The form is spaced 2 
lines before printing, which — in conjunc- 
tion with the 2 spaces after each detail 
line--creates 3 blank lines before the 
total line* The word TOTAL is printed to 
the left of the amount. 

The Blank-After (E in col. 39) instruc- 
tion resets the field SUM to zero as soon 
as the contents have been transferred to 
the output core-storage area. The field is 
then ready for acculumaticn of the total 
for the next control group. 

The file name (PRINT) need not be 
repeated in the File-Identification line. 



Page 05 

Line s 01-03 contain the specifications for 
printing the grand total commission amount 
for the report. (The file name need not be 
repeated.) Output is at total time (T in 
col. 15) , after processing of the last data 
card (LR indicator on) — it must 'be at 
total-output time, because the operation 
terminates after total-output time when LR 
is on. 

The words FINAL TOTAL are printed to the 
left of the amount. 

The form is advanced 3 lines before 
printing (3 in col. 17) and to the next 
page after the final total (01 in cols. 
21-22) . 
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Note: The channel- 12 
enough tc allow for 8 
the same page. Assum 

(a) Eet'ail line p 
carriage-tape 
lowed by deta 
12-punch (dou 
detail line) 
punch. Cverf 
en. 

(b) Ecuble space 

= 3 lines bel 

(c) Control-Level 
double space 
lines below 1 

(d) End of report 
total line = 
12-punch . 



punch must be high 
additional lines on 
ing worst cases: 
rinted just above 

12-punch line, fcl- 
il line one line below 
ble space after each 
= 1 line below 12- 
lc.w indicator turns 

after that detail line 
ow 12-punch. 

1 total follows-- 
before total line = 5 
2-punch. 

--triple space before 
8 lines below 



Basic Assumptions 



1 



SALESMAN CUST INVOICE 

0313 9450 00015 

11269 00344 

20011 10046 

34567 10095 



AMOUNT PERC COMMISSION 

4,730.50 10 % 473.05 

10,665.00 12 % 1,279.80 

30.75 10 % 3.08 

580.35 10 % 58.04 



TOTAL 



1,813.97 




Fioure 62. Sales Ccmmissicn Calculation, 
Printed Report 



^§1£ ie_ J K ep o r t 

Figure 62 shows a sample report based en 
the program defined above. It pcrtrays the 
first ccntrcl group and final total as 
actually produced if the sample deck 
supplied by the Program Information 
Eepartment is run. 



£1IzBILLING_CAICULATICN_WIJH_INVENT0BY 
CONTROL - t 

This example illustrates one of numerous 
approaches to an crder-prccessing/invertory 
ccntrcl jcb. The application has been 
arbitrarily slanted to a distribution 
business — perhaps a mail-order house — with 
custcmer orders to be filled from warehouse 
stock. An attempt has been made to be 
reascnably realistic in the application, 
includinc the complexities of such a multi- 
purpose operation. 

Note : Figures 63 and 64 should be con- 
sulted in relation to the discussion that 
follows. 
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A card has been 

(a) For each ite 
order — Card 

(b) For each ite 
return — -Card 

(c) For each ite 
receipt (or 
are used as 
Card 5; 

(d) For each sto 
No X in col. 
X in col. 11 

(e) For each ite 
order — Card 
when ordered 
is cancelled 

(f) For a new st 
price,- descr 
tion, etc. 
are removed 
separately f 
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Note: The sixth digit of Stock No. 
could be the check digit for a self- 
checking number. (See Self-Checking 
Number Eevice for keypunches.) 

An Inventory Master Card file exists, 
with one card per item carried in 
stock. Changes to the file are made 
manually, or in seme other data proces- 
sing operation (i.e., addition and 
deletion of items, changes in price, 
warehouse location, etc.). 

It is desired to process customer 
crder-item cards against inventory 
records before attempting to fill the 
orders in the warehouse. At the same 
time, the inventory records will be 
updated and an up-to-date inventory 
report prepared. 

The customer-order cards are 
thereafter ready for invoicing. (The 
cards could be sorted by warehouse 
location prior to invoicing.) A copy 
of the invoice, or the cards them- 
selves, serve as order-picking medium — 
i.e., either sequential or bulk picking 
is employed. 

If crders are processed once daily 
on this basis, the inventory records 
are always up to date. 

Note: The third example utilizes these 
customer-crder cards. 

If the quantity cn-hand is insufficient 
to satisfy the guantity in the 
customer-order card, no partial guanti- 
ty will be applied for that item. The 
item order: 

(a) Will be marked for back order if 
not previously back-ordered, and 
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5. 



6. 



provided stock is en order; or 

(b) Will be marked "cancelled" if no 
stock is en crder; or 

(c) Will be marked "cancelled" if pre- 
viously back-ordered. (Say, back 
orders are reprocessed one week 
after they became tack orders.) 

Where previously back-crdered item 
cards are reentered, they are to 
receive priority for available 
inventory. 

Some items have a lower unit selling 
price when at least the specified cri- 
terion quantity is ordered by the 
customer. 

Stock adjustments are made without 
attempt at modifying the unit cost of 
the item. 
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Procedural Details 

1. Safeguards. 

(a) Certain control totals will be car- 
ried, partially as audit trails. 
Control totals are presumed to have 
been established for the various 
kinds of transacticn cards, so that 
new on-hand and cn-crder totals can 
be proved out. 

(b) Customer-order detail cards that 
are being cancelled will be identi- 
fied. If such a card is reentered, 
it is selected out, and calculation 
for it is bypassed. 

(c) Matched old master cards--for which 
new ones are created — will be iden- 
tified, and selected tc a separate 
stacker. If such a card is acci- 
dentally reentered, the entire 
stock-number group is selected to a 
separate stacker, and calculation 
is bypassed. 

(d) The entire stock-number group 

(exept the first card) is selected 
tc a separate stacker, processing 
is bypassed, and the system halts 
after the second card, whenever 
there is more than one master card 
for a group. 



(e) The entire stock-number group is 
selected, and calculations are 
bypassed, when a master card with a 
negative on-hand guantity has been 
read. 

When a negative on-hand quantity 
is created as a result of calcula- 
tion, the cards from the point of 
error are selected, and calcula- 
tions are bypassed. 

(f) Whenever the blank trailer card is 
missing or mispositioned within the 
group, all cards in the group from 
the point of the error detection 
are selected, the system halts, and 
further calculation is bypassed for 
the group. 

(g) Unmatched transaction cards, 
including the trailing blank card, 
are selected, and calculations are 
bypassed . 

(h) If the on-order guantity turns 
negative, the system halts. The 
inventory report also indicates 
this condition. 

(i) For known error conditions that 
affect the new inventory values, 
the data is omitted from the report 
(the cards have been selected to a 
separate stacker) . 

2. Any merchandise receipts, stock adjust- 
ments, and customer returns precede 
order-item details, so that the custom- 
er orders are correctly applied to the 
latest on-hand status. 

Stock purchase-crder cards are -also 
placed ahead of customer order details, 
because it was decided not to back- 
order items for which no stock is on 
crder. 

Former back-order cards precede 
other order-item cards to get first 
chance at on-hand goods. 

3. The cards are assumed to be in ascend- 
ing sequence by Stcck No. 

Inventory master cards are to be in 
the primary feed of the MFCM--preceded 
by a single card to read in today's 
date. All other cards will be placed 
in the secondary feed. 
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4. 



(b) 



Stacker Se 
(a) The Da 
stacke 
do egu 
All ol 
stock 
transa 
file a 
normal 
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punche 



lection, 
te header 
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ction card 
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ted cards) 
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card is directed to 
ther stacker would 

y master cards with 
r which there are 
s in the secondary 
d to stacker 1 (the 
chosen to contain 
, because a new 

card will be 
ced in stacker 2. 



Each unmatched old inventory 
master is selected to stacker 2, 
because no new master is punched in 
such case. 

Stacker 2 ultimately contains 
the complete up-to-date inventory 
master file (except for known 
error-condition cards) — consisting 
of new cards where transactions 
occurred and old masters where no 
transactions applied. 



(c) Stacker 3 receives the customer 
order-item cards, ready for ware- 
house picking (if cancelled and BO 

(back-orders) are sorted out) , or 
to be sorted on order and account 
numbers for invoicing. 

(d) Stacker 4 has been assigned to 
unmatched transaction cards (secon- 
dary file) , and tc all other 
detected error-condition cards. 

(e) Stacker 5 has been assigned to 
stock orders, receipts, adjust- 
ments, and merchandise returns. 
These may also be left together 
with the other transaction cards by 
directing them to stacker 3 
instead; they could easily be 
segregated later by sorting on 
cols. 1 and 11. 



Note : When stacker 5 is desig- 
nated, but the I/O device referred 
to is the 2560 MFCM Model A2, the 
card is directed to stacker 4. 
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Figure 63. Pre-Billiug with Inventory Control, Card Layouts 
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Hopper 2 — Secondary File: 
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Figure 6 4. Fre-Billing with Inventory Control, Diagram of Card Flew 



Study of figures 63 and 64 will clarify 
the details of the operation. The report 
has been laid out (see Figure 65) to fit 
within the 120-pcsiticn print span of all 
IBM 2203 and 1403 Printers attachable to 



Model 20. Explanation of specifications 
sheets follows; Fiqure 70 (Assignment of 
Indicators) will also help in following the 
discussion. 
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Figure 65. Pre-Billing with Inventory Control, Layout of Inventory Eeport 
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Fiaure 66. Pre-Eilling with Inventory Control, File Description Specifications 



File_Descri_ptipn_ Specifications (Figure 66) 

The file cf inventory master cards is named 
CLDMASTE, and associated with the primary 
hopper of the MFCM. It is defined as a 
combined file (C in col. 15) so that stack- 
er selection may be performed via output 
specifications, and to allow punching cf a 
code for "obsolete" at output time into 
these eld masters that are replaced as a 
result cf new transactions. 

The detail transaction cards are 
assigned to the file named TESACTN, and 
associated with the secondary hopper of the 



MFCM. Stacker selection is dependent on 
calculation operations; therefore — and 
because cutput is reguired to some 
customer-order item cards--IFSACTN is a 
combined file. 



The input files are in ascending 
sequence (A in col. 18). A seguence is 
reguired, and must be uniform for the input 
files, when matching of records in two or 
more files is called for. If col. 17 is 
blank, or contains E, for all input files, 
the L'R indicator does not turn on until all 
input files are exhausted. 
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Figure 67 (Part I cf II) . Pre-Billing with Inventory Control, Input Specifications 



The printer is associated with an output 
file named EEP0RT. 

Input Specifications (Figure 67--Parts I 

and_IIl 

Because the file CLDMASTE is specified 
ahead of the TRSACTN file, it is therefore 



the primary file; i.e., matching cards from 
the 0LDMASTR file are processed ahead of 
their matching TESACTN-file cards. 
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Figure 67 (Part II of II) . Pre-Billing with Inventory Control, Input Specifications 



Inventory Master Cards — 0LDMASTR File (Page 
02) 



The eld Inventory Master cards are identi- 
fied by in col. 1, and assigned indicator 
01. Since they are the only card type in 
the file — apart frcm the initial single 
Date card — an alphabetic cede is specified 
in Seguence (eels. 15-16). (If any 
other--undef ined — card types (besides the 
Date or Master card) appear in the file, 
the system halts.) 

lines 02-18 contain the normal specifica- 
tions for reading these fields frcm the old 
Inventory Master cards that may be needed 
for processing cf the application (see 
Figure 63 for greater detail on the card 
fields) . Fields defined as numeric are 
used in calculations, edit operations, or 
numeric compare. Points cf special inter- 
est are: 



Stock No. is defined as numeric to 
allow formatting in the output by edit 
word, and to simplify detection of an 
obsolete master card (see 4, below) . 

The files are matched and seguence- 
checked on Stock No. (M1 in cols. 61- 
62 for Stock No.) . 

The L1 indicator is turned on for the 
first card of each stcck-number group 
(L1 in Control level for Stock No.) . 

11 is not used in this program for 
total printing or punching — it is used 
solely to recognize the first card of a 
group for error-control purposes. L- 
indicatcrs have no inherent connection 
with matching of files, and L1 is not 
needed merely because M1 is assigned. 

Whenever an old Master Card is replaced 
by a new one, to reflect transactions, 
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the eld card is overpunched with an 
11-punch in ccl. 7 at output time (page 
07, line 06) tc mark it as obsolete. 
If such a card is accidentally reen- 
tered next time, indicator 97 turns 
on — the 11-punch causes the Stock No. 
to read in as negative (a matching- 
field sequence error dees not, however, 
arise because all zone punches are eli- 
minated from the matching-fields opera- 
tions of a numeric field). 

Indicator 99 turns on if the Quantity 
Cn-Hand is negative in the old Inven- 
tory Master card. Such a card should 
never appear, because subsequent speci- 
fications (page 04) cause output tc be 
bypassed if On-Hand turns negative. 

Indicator 20 turns on if the Criterion 
Quantity field is zero. The zero code 
indicates that only Unit Price A 
applies, and that the Price-B field is 
to remain blank both in the report and 
in a new Inventory Master card.. 
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8. Stacker assignment is not knewn until 
calculations are performed. It must 
therefore be specified at output time. 

Bate Card — CLDMASTR File (Page 03) 

The single Date card at the front of the 
file is identified by an X-punch in ccl. 1, 
and assigned indicator 09. The date is 
stored in a field given the name DATE. It 
is defined as numeric to allow editing. 

No matching is specified for this card. 
It is therefore prccessed first. 

The Date card is to enter the normal 
stacker for the MFCM primary hepper and, 
therefore, need not have stacker selection 
specified. However, when no output opera- 



tion is to be performed on a combined-file 
card type, and the desired stacker number 
is known at input time, a stacker-selection 
specification — even for the normal 
stacker — should be given in the input 
specifications: this maximizes I/C over- 
lap. (For a single card in an entire file, 
this is cf course insignificant.) 

The file Name need not be repeated where 
no others intervened. 

No te : The Date card is specified after the 
eld Master cards, although it cccurs first, 
so that the program need not attempt a 
match against its record-identification 
code each time a card is read from the 
OLDMASTR file (see Nature, of the Card -Type 
Sequence Check) . 

Transaction Cards (Except Elank Trailers) — 
TRSACTN File (Page 03) 

The four types are identified, and assigned 
separate indicators. The customer-order or 
merchandise-return item card is checked for 
digit — rather than character — 9, because 
back orders have an X-overpunch in col. 1. 

Stacker selection is dependent on calcu- 
lations, and is therefore assigned in the 
output specifications. In the case of card 
type 9 (indicator 15) , output to the card 
is also reguired: this precludes stacker 
selection in the input specifications. 

Points to note: 

1 . Indicator 21 is turned on for order- 
item cards that were previously back- 
ordered: 11/9 in the lew-crder, or 
scle, position of a numeric field indi- 
cates a negative value. (Back-order 
cards are so designated at output 

time --page 07, line 17.) 

The field BOCARD is not used in the 
program; it is assigned only so that a 
Field Indicator may be set. Alterna- 
tively, a separate card-type Resulting 
Indicator could have been assigned via 
an OR line. 

2. The same name is assigned to Stock No. 
here as for the CLDMASTE file, to con- 
serve core storage space. No harm is 
dene because there is no situation in 
this program where the distinction 
needs to be preserved. 

3. When an order-item cannot be filled, 
and is not to be back-ordered, col. 7 
of the card is cverpunched with an 11- 
punch (page 07, line 18) to designate 
"cancelled." If such a card is inad- 
vertently reentered, indicator 98 turns 
on because the 1 1-overpunch causes 
Stock No. to be read as negative. 
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4. 



5. 



Indicator 22 distinguishes between 
crder-item and merchandise-return 
cards — bcth card-type Resulting Indica- 
tor 15. 
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Elank Trailer Card — TRSACTN File (Page 03) . 

The trailer cards~-destined to beccrae new 
Inventory Master cards — are identified by 
absence cf a punch in col. 1, and are 
assigned indicator 19. 

The blank trailer card at the end of 
each stock-number group in the TRSACTN file 
is net matched (no entry in Matching 
Fields) against the CLEMASTR file; there- 
fore, it is processed immediately after the 
card it follows in the same file, before 
the Inventory Master card fcr the next 
Stock No. 

Ca lc ul at ion S p e pi f ic a t i c n s (_F i gure 

MzzPaj^S-Ix-IJ-anJ-IIIi 

In order to minimize the need fcr condi- 
tioning indicators (Indicators, cols. 
9-17), branching (GOTO) ever entire sec- 
tions has been employed tc bypass a series 
of inapplicable calculation specifications. 

Where practical, specifications lines 
are discussed sequentially. In some areas, 
however, it is preferable, fcr clarity, to 
relate ncn-ccnsecutive lines. 

Note : In several instances, result fields 
are defined as smaller than the 
theoretically possible maximum. We assumed 
that knowledge of the particular business 
indicated that these field sizes are 
adeguate for the actual figures that could 
occur. 
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Date Card (Card-Type Resulting Indicator 
09) — Page 04, Lines 01 and 02 



No calculation operations are performed on 
this card. Indicator 93 is turned on (line 
01) solely for use in a subsequent check on 
proper card-type seguence (line 05) . The 
entries in line 02 cause branching to the 
end of the calculation specifications (page 
06, line 20) , so that N09 need not be spec- 
ified in Indicators in subsequent lines. 



Error Control — Page 04, Lines 03-1: 
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Indicator 90 is set on for all of the 
major error conditions tested for, and is 
used to specify the bypassing of calcula- 
tions and the selection (see output speci- 
fications) cf the group tc stacker 4. 

Sp ec ifications line 03 clears indicator 90 
at the beginning of each control group 
(i.e., stock-number group), so that the 
error actions do not carry through to the 
next group. 
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Figure 68 (Parts I and II cf III) . 
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If none of the conditions (a) , (b) or 
(c) applies when the first card cf a con- 
trol group is processed, the blank (i.e., 
the new inventcry master) card is missing. 

Indicators 91, 92, 93, and 94 are reset 
appropriately in lines 06 and 07 so that 
error conditions are not spuriously sig- 
nalled in a subsequent cycle. (The reset 
of indicator '24 each program cycle is 
related to its use in line 14 of page 05 
and lines 17 and 18 of page 07.) 

Exc ess b 1 a n k_ t r a i 1 e r card. Indicator 91 is 
turned on in line 17 if indicator 19 (blank 
card) i-s en. Next program cycle, indica- 
tors 90 and H2 are turned en if indicator 
91 is still on when the instructions in 
line 14 are reached by the program. Hew- 
ever, if indicator L1 (first card of con- 
trol group) is on when the instructions in 
line 07 are reached, indicator 9 "] is turned 
cff. 

Thus, an error is signalled (90 and H2 
are turned on) if there is no control break 
(11) following a blank card (9 1 turned on 
by 19) : trailer card present tut not at 
end cf group. 
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In line 10, indicator 90 is turned en if 
H1 was turned on in line 08, so that all 
processing for the remainder of the group 



Obs ole te old,, Inventory, Master card . As 
explained with Figure 67 (Input Specifica- 
tions) , indicator 97 turns on if the Stock 
No. in the old master card is negative, 
signalling reentry into the operation of a 
previously cbsoleted card. 

In line 13, indicator 90 is turned on if 
that situation exists. 

Negati ve on -h a nd in eld Inventory M aster 
card. As explained in Figure 67, indicator 
99 turns on if the On-Hand field is nega- 
tive at input time of the old Master card. 

In line 11, indicator 90 is set on for 
that condition. 

Cancelled ord er-item car d . As explained 
with Figure 67,' indicator 98 turns on when 
a transaction card with a negative stock- 
number field is. read. This signals reentry 
of a previously cancelled order-item card. 

Indicator 98 is used to specify bypas- 
sing cf calculations for that card only 
(see line 15) , and its selection to stacker 
4; but the remainder of the qrcup is pro- 
cessed normally because it is not otherwise 
affected . 

Unmatched transaction cards. The specifi- 
cations in line 12 cause indicator 90 to be 
turned on for unmatched cards (NME) , other 
than Inventory Master cards (N01), and 
other than blank trailer cards (N19) which 
are always unmatched. 

Bypas sin g calcula ti ons fcr the errcr group . 
In line 18, the program branches to END 
(line 20 on page 06) when indicator 90 is 
on. This makes detail output the next 
operation, omitting all calculations below 
line 17 on page 04. 

Line_J_9 illustrates use of a Comments card 
(* in col. 7) . It will be printed during 
generation as punched, but otherwise it 
does not enter the generation process. (It 
is checked for proper position, based on 
cols. 1-6.) 
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Bypassinq Detail-Card Operations en Master 
Cards — Page 04, Line 20 and Page 05, Lines 
01-03 

Line 20 cf page Oft provides program skip- 
ping past all the specifications lines that 
do net apply to the new Inventory Master 
card (i.e., the blank trailer card). This 
minimizes the need for N19 specifications 
in Indicators in subsequent lines. 

In lip. e , CI of .page 05 the Average Unit Cost 

from the eld Inventory Master card is saved 
for later determination of cost trend when 
compared with new merchandise costs. 

In line_02, all calculations are terminated 
for eld Inventory Master cards that will be 
replaced by new ones (i.e., there are 
matching transaction cards) . 

In line_03, the program skips--fcr eld Mas- 
ter cards that are to be retained (i.e., 
there are no transactions) — to the same 
point at which calculations are resumed for 
new Inventory Master cards. This permits 
uniform preparation cf repcrt data fcr both 
situations. 

Merchandise-Receipt, Stock-Adjustment, and 
Stcck-Order Cards — Lines 0^1-11 of Page C5 

In line CM, the Cn-Order quantity is 
revised tc reflect merchandise Receipts, 
new purchase Stock Orders, and cancellation 
cf Stock Orders. Cards 5 and 7 are sc 
coded in eel. 11 that additicn provides the 
proper algebraic operation (see Figure 63) . 
The system is halted if the operation 
results in a negative On-Order quantity* 
(Indicator 90 is not turned on, tecause 
such an error was not deemed of sufficient 
significance to require bypassing cf the 
remainder cf the group.) 

Line 5 provides for extending the ccst of 
a stock adjustment, based en last-knewn 
unit cost, so that the value of the inven- 
tory may be adjusted (in line 07). A new 
work field (CSTEXT) is set up for the 
product. 

Line 6 provides for the satre operation as 
line 05, but using the specific unit ccst 
at which new merchandise was received. 

In line, 07, the extended ccst of an Adjust- 
ment or merchandise Receipt is algebraical- 
ly subtracted frcm the total Inventory 
value of the stock item. The signs in 
cards 5 and 6 are appropriately coded (see 
Figure 63) . 

In line 08, the On-Hand guantity is updated 
to reflect Receipts and Adjustments. Indi- 
cator 90 is turned on if Cn-Hand has become 
negative; further calculations are then 
bypassed fcr that stock-number group (hy 



entry in line 09), and the cards from this 
point en are selected to stacker 4 (output 
specifications) . 
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Line 1 1 causes termination of calculations 
for cards 5, -6, and 7. 

Order-Item and Merchandise-Return Cards — 
Lines 12-15 on Page 05 and Lines 01-10 on 
Page 06 

No conditioning indicators are needed to 
restrict these specifications to this card 
type* pricr entries have branched past 
these lines for all other card types. 

In line 12, the guantity in the customer- 
order card is subtracted from Quantity On- 
Hand. Merchandise-Return cards are auto- 
matically added because they are X-over- 
punched in col, 11. 

A merchandise Return card cannot cause 
On-Hand to turn negative. If On-Hand was 
already negative, entries in lines 08 and 
09 caused branching to END. Therefore, 
indicator 23 turns en only for a customer 
order-item card containing a quantity 
larger than the positive or zero On-Hand 
guantity. 

Lines 13-15 are executed only to handle the 
insufficient-stock situation (i.e., indica- 
tor 23 is on) . In accordance with our 
Basic Assumptions: 

a. No order-item will be partially 
filled ; 

b. No item card will be back-ordered 
if it was previously back-crdered; 

c. No item will be back-ordered unless 
merchandise is on order. 

In Line 13 , the guantity is added back to 
On-Hand, to restore the prior status. 

!n IiijD iL^-Jit f indicator 24 is turned on if 
Quantity^On-Order is greater than zero 
(COMP operation) , provided the card was not 
previously back-ordered (N21--see page 03, 
line 07). Indicators 23 and 24 determine, 
in the output specifications, whether the 
card is to be identified as Back-Ordered or 
Cancelled (page 07, lines 17 and 18) . 

Indicator 24 is turned off each cycle 
(see page 04, line 06) before this point is 
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reached, because line 14 is not executed 
each time. Incorrect card identification 
in ccl. 1 would otherwise be punched when 
non-tackcrder cards follow a back-order 
card. 

line 15 causes branching tc the end cf the 
calculation specifications for order-item 
cards that could not be filled. The speci- 
fications in lines .02-10 of page 06 will 
not be executed for these cases. 

Cn page 06, lines_02_and_0 3 , respectively, 
set on indicator 27 if the customer-crder 
cr merchandise-return quantity is egual to 
cr greater than the Criterion Quantity that 
qualifies for Price B. 

We are only interested in the Resulting 
Indicator — not the actual result quantity. 
However, an arithmetic operation requires a 
result field. In order not to waste core 
storage space, a field only temporarily 
needed elsewhere (page 05) — but now 
available — has been utilized. A numeric 
Compare operation is always algebraic; 
therefore, a more complex routine would 
have had to be substituted for the ADD 
operation in line 03 (where QTY is nega- 
tive) if COMP were to be used instead. 

Line 04 places Price A into a new field, 
UNPRIC, which will be used for the unit- 
price factor in the selling-price 
extension. 

In line 05, Price E is substituted for 
Price A in the UNPRIC field — but cnly pro- 
vided the quantity in the crder-item or 
merchandise-return card satisfied the cri- 
terion (lines 02 and 03) and provided cri- 
terion Quantity was not C (N20 — see pace 
02, line 06): zero in ccl. 22 indicates 
that Price A applies in all cases. 

In line 06, the quantity in the item card 
is multiplied by the unit price previously 
selected (lines 02-05) . The new field, 
EXTPRI, will be negative fcr a merchandise- 
return card, because quantity is negative. 

In line 07, cost of the item sale or return 
is calculated, using the Average Unit Cost 
as updated during processing of any stock 
Receipt cards (page 05, line 10) .. Again, 
the same work field (CSTEXT) is utilized, 
because the product is net needed beyend 
line 08. 

In lin e 8, gross profit is calculated for 
each item card. For merchandise returns, 
the sign is automatically reversed: 
-EXTPRI - (-) CSTEXT = -GRSPRO (unless sel- 
ling price is less than Average Unit Ccst) . 

In line 09, Quantity Sold This Year To Date 
is updated for this item card. Returns 
reduce the value, because guantity in these 
cards is negative. Eecause it is possible 
for returns early in a year to exceed 



sales, provision is made for a negative 
total (page 11, line 17 — edit word). 

Line 10 terminates calculations for card 9. 

New Inventory Totals - Lines 11-19, Page 06 

This section contains the specifications 
for completing the data needed (1) to punch 
the new Inventory Master cards for stock 
numbers with transactions, and (2) to print 
the Inventory Status Report for all stock 
numbers. 

No conditioning indicators are required 
because the program has been instructed, in 
earlier lines, to branch past this 
section — to END (line 20) — for all card 
types except blank trailer cards or 
unmatched (i.e., no transaction) old Master 
cards. 

Line 1_6 is not needed when there are no 

transactions; but there is no harm in 
executing it. Although there is no change 
in Average Unit Cost when there are no mer- 
chandise Receipt cards in the group, line 
1 5 (in conjunction with line 01, page 05) 
provides a uniform method of determining 
cost trend that sets the indicators appro- 
priately regardless cf whether there has 
been a Receipt. 

Line 1_! is the destination point to which 

the program branched from page 04, line 20 
(blank trailer card) or page 05, line 03 
(unmatched old Inventory Master card) . 

Line 12 provides for determining whether 

the item is new this year (X-punch in col. 
47 of old Master card— see line 11, page 
02) . Indicator 30 will be used in output 
specifications to control punching into 
cols. 43-47, and printing in print posi- 
tions 54-59. 

In line 13, the available quantity (On-Hand 

+ On-Order) is calculated for the report. 

In line 14, indicator 31 is turned on if 

the available quantity is less than the 
minimum specified in the old Master card, 
so that this condition can be signalled by 
a symbol in the report (print position 
120) . 

In line__16, the updated Inventory Value is 
calculated after all transactions have been 
processed. 

Lines 17—1 9 contain the specifications for 

summing quantity On-Hand, quantity On- 
Order, and Inventory Value for report grand 
totals. 

The first two serve only as audit trails 
and control totals — to balance out former 
totals with control totals for Receipts, 
Adjustments, Stock Orders, merchandise 
Returns, Back-Orders, and Order-Item cards. 



Program Examples 235 



The Inventory Value total is also an impor- 
tant figure for management. 

Line 20 represents merely the destination 
point to which the program branched frcm a 
number of previous lines when calculations 
were complete. It is followed by detail- 
time output. 

Out put-Per m at Specif ic a tic ns _{ Figure 
69zzPails_I- VIX 

All output is at detail time (D or H in 
col. 15) — except for grand totals, based on 
LR indicator which terminates the job after 
total-output time. 

Old Inventory Master Cards — OLDMASTR File 
(Page 07, Lines 01-06) 

Lines 01-03 specify different stacker 
selection for card types in an OR 
relationship: 

Cards with major errors (indicator 90 
en — see page 04) are selected to stack- 
er 4; the remainder (i.e., the bulk) 
are selected to stacker 2 if unmatched 
(NMR) , or stacker 1 if matched (MR). 
(Stacker 1 — the normal stacker — need 
not be specified.) 

Thus, when a new Master card will be 
created because there were transactions, 
the matched old Master is directed to 
pocket 1; if no new Master is created, it 
is directed to stacker 2, which will also 
receive the newly punched Masters for 
groups with transactions. 

Indicator 01 is needed: 

1. To prevent old Master cards of the fol- 
lowing stock-number grcups being passed 
through output operations — without 
being read — in the prcgram cycles dur- 
ing which matched secondary cards are 
being processed (MR en) ; and 

2. To prevent an eld Master card being 
passed through output operations — 
without being read — during the detail- 
time output preceding the reading cf 
the first card (at 1P time. MR is then 
off; thus, NMR would apply) — see RFG 
Program Logic, Figure 6. 

3. To prevent performance of this output 
for the Date card (during whose proces- 
sing NMR applies) . The Date card was 
specified as reguiring input enly, by 



the stacker selection designated for it 
in the input specifications. 

Line 04 specifies that obsolete old Inven- 
tory Master cards (which are replaced by 
the trailer card of the matched 
transaction-card group) are to receive an 
11-punch in col. 7. This is the safeguard 
against accidental reentry of these cards 
next time (see indicator 97: page 02, line 
02 and page 04, line 13). 

Note: Indicators in File-Identification 
lines of card types in an OR relationship 
are tested in seguence: if indicator 90 is 
on, line 01 is applied. Therefore, N90 is 
not needed in the next two lines. However, 
in line 04, N90 is necessary, because each 
Field-Description line is considered separ- 
ately for all card types in an OR 
relationship. 



Transaction Cards: Receipts, Adjustments, 
Stock Orders, and Errors — TRSACTN File 
(Page 07, Lines 07-12) 

Cards of groups with major recognized 
errors are selected to stacker 4. A pre- 
viously cancelled order-item card that was 
inadvertently reentered (indicator 98 — see 
page 03, line 08) is also selected to 
stacker 4. 15 is specified in line 08 
(with indicator 98) so that additional 
cards following a cancelled order-item card 
are not also selected: indicator 98, once 
on, is not reset until the next transaction 
card other than a blank is read. 

Receipt, Stock-Adjustment, and Stock- 
Order cards are selected to stacker 5. 
They could instead be directed to stacker 3 
with the order-item cards and subseguently 
sorted apart on Card No. (col. 1). 



Order-Item and Merchandise-Return Cards — 
TRSACTN File (Page 07, Lines 13-19 and Page 
08, Lines 01-09) 

By the entries in lines. 13-16, Merchandise- 
Return cards (indicator 22 on — see page 03, 
line 09) are directed to stacker 5, whereas 
order-item cards are selected to stacker 3. 
(The Returns cards could also, of course, 
be selected to stacker 3, and subseguently 
sorted apart by the X-overpunch in 
col. 11.) 

The file name need not be repeated in 
line 13. 
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Figure 69 (Parts III and IV of VI) . 
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Figure 69 (Parts V and VI of VI) . 
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tine__17 provides for an 11-overpunch in 
col. 1 of order-item cards being back- 
ordered--see page 05, lines 12 and 14, for 
indicators. 

Line_ 18 specifies an 1 1-cverpunch in ccl. 7 
for crder-items to be cancelled--see page 
05, lines 12 and, 14, for indicators. 
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Lines_06-09 provide for document printing 
(interpreting) en the order-item and mer- 
chandise Return cards, on an MFCM Model A1. 



Warehouse location (lin 
only if the item was fille 
goods could be at a differ 
new merchandise is receive 
orders are filled. 

The other three items a 
the first time the card is 
facilitate card handling) , 
fore net printed again on 
ordered cards. 

Stock No. , Quantity, an 
ticn are printed by print 
No. is printed by print he 

Stock No. (line 06) is 
hyphens between digit posi 
three, and between the fif 
presumed self-check digit) 
hyphen in the edit word is 
portion and identifies a c 
All leading zeros, except 
preserved. 

Zero Suppress is used t 
ing zeros in Account No. ( 



e 08) is printed 
d, because the 
ent location when 
d and the back- 
re interpreted 
processed (to 
and are there- 
previously back- 

d Warehouse Loca- 
head 1 ; Account 
ad 2. 

edited with 
tions two and 
th and sixth (the 
The third 

in the status 
ancelled card. 
the first, are 

o eliminate lead- 
line 09) . 



Note: These cards hereafter contain all 
the information needed to: 

1. Run invoices; 

2. Serve as warehouse picking tickets; 

3. Run sales, cost-of-sales, and gross 
profit reports by stock number and mer- 
chandise class. 



Punching New Master Cards (Blank Trailer 
Cards) --TRSACTN File (Page 08, Lines 10-19 
and Paqe 09, Lines 01-11) 

The pertinent fixed data from the old Mas- 
ter card and the updated variable informa- 
tion are specified for punching as per the 
card layout (Figure 63) . 



If Criterion Quantity was (indicator 
20 on — see page 02, line 06), the field for 
Price B (line 15) is left blank. If the 
item is new this year (indicator 30 is on — 
see page 06, line 12) , the single-position 
alphameric NEWITM field (consisting of an 
1 1-punch) is punched into col. 47 (line 
02) ; if the item existed last year, the 
five-digit numeric field LASTYR is punched 
into cols. 43-47 (line 01). If cost trend 
is up (indicator 32 is on) , a plus (12/6/8) 
is punched into col. 75 (line 09); if it is 
down (indicator 33 is on), a minus (11) is 
punched (line 10, page 09) ; if there was no 
change in merchandise cost (indicators 32 
and 33 are off), col. 75 is left blank — see 
page 06, line 15 for setting of indicators 
32 and 33. 

Line 11 (page 09) provides for punching the 

new date from the Date card. Thus, new 
Inventory Master cards contain today's 
date, while retained (unmatched) old ones 
keep the old date. Each item Inventory 
Master card thus contains the date of the 
latest transaction — actual or attempted 
(i.e., unfilled order-item cards). 



Interpreting New Master Cards--TRSACTN file 
(Page 09, Lines 12-19) 

Note: The card document-printing special 
feature is available only for the 2560 MFCM 
Model A1. 

Various fields were chosen to be inter- 
preted by print head 1 or 2. Note in lines 
15 and 18 (edit words) that one zero will 
be printed even if the entire field con- 
tains zeros. Since Minimum Quantity (line 
16) needs no hyphen or slashes, cannot be 
negative, and cannot be completely zero, we 
elected to eliminate leading zeros by the 
Zero Suppress instruction rather than an 
edit word. 

Heading the Inventory Status Report — REPORT 
File (Page 10; and Page 11, Lines 01-06) 

Note : Figure 65 should be' referenced while 
reading the description of the report 
specifications. 



o 



Lines 01-06 on pa ge 10 
eral heading of the re 
is printed before the 
(indicator 1P is on) a 
output time (OF on) . 
to the next carriage-t 
before this heading is 
spaced 3 lines after p 
ing at overflow-output 
could be used in place 
1P is only on at detai 
detail output time is 
handle the operation.) 



provide for the gen- 
port. This heading 
first card is read 
nd during overflow- 
The form is advanced 
ape channel- 1 punch 

printed, and up- 
rinting. (For print- 
time, T in col. 15 
of D or H; however, 
1 time; therefore, 
the simplest way to 
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The heading consists cf constants, with 
cne exception: the output field PAGE is 
specified. This is the only field name (as 
contrasted with constants) that can provide 
ether than blank or zeros tefore the first 
card has been read (i.e., when 1P is en). 
The page No. 1 will be printed in the first 
heading line cf the first page (it is not 
possible to start with any other value 
before a card has been read) ; it will be 
incremented ty 1 before printing en the 
first line of each succeeding page. Zero 
Suppress is specified to eliminate leading 
zeros and the units position zene (C zene) . 



li nes 8-1 3 contain the specifications for 
the first print line of column headings, 3 
lines beneath the report heading. The form 
is single-spaced after printing. 

The column headings,, too, are to appear 
on each page (first and overflew pages) . 
The file name need not be repeated. 

Lines__14-20 contain the specifications for 
the second print-line cf column headings. 
A single space fellows printing. 

Lines 01-06 en page 1_1 take care of the 

third print line of column headings. After 
printing, the form is advanced to the next 
channel-2 punch. 

Printing the Item lines — RIFCRT File (Page 
11, Lines 07-18 and Page 12, Lines 01-10). 

Lines 07 and 08 specify that the data is to 
be printed at detail-output time (D in col. 
15) while processing either: 

(a) A formerly blank trailer card (indica- 
tor 19 on) that does net belong to a 
recognized error group (N90--see page 
04; and page 05, line 08); or 

(b) An unmatched (NMR) old Inventory Master 
card (indicator 01 on) that does net 
belong to a recognized error group 
(N90) . 

Thus, cne line will be printed per stock 
number, showing the original old Inventory 
Master card data for items without new 
transactions (NMR) , and the updated infor- 
mation where transaction cards exist. 

Points to note: 

In lines 11, 12, 13, 15, and 17 en page 11 , 
the edit word is designed so that one C is 
printed when the guantity is completely 
zero, and a minus sign is printed for nega- 
tive values in fields that can be negative. 
In lines C1, 02, 0a and 07 en page 12, the 
edit word provides for printing cf .00 when 
the amount field is all-zero. The edit 

word in line 07__pf page 12 also provides 

for a floating dollar sign. 



The maximum number of leading zeros 
(i.e., all but one) is preserved for the 

Stock No., in line 1 8_on_p a.ge_ _1_1 , and 

hyphens separate merchandise class from the 
remainder cf the number, and the principal 
number from the self-check digit. 



The dates — lines 09 and 091 on page 12 - - 

are edited to be printed with slashes 
between Month, Day, and Year. There is no 
point in placing a in the edit word: the 
date can at most have one leading zero 
(months 01-09), and its suppression cannot 
be prevented by an edit-word entry. 

Line 091 on page_ 12 illustrates insertion 
of a specifications line that had been for- 
gotten initially, by assigning it a line 
number seguentially between two pre-printed 
numbers. 

Lines 15 and 16 on page 1J cause the Quan- 
tity Sold Last Year to be printed (in print 
positions 54-59) if indicator 30 (see page 
6, line 12) is off, but the word NEW to be 
printed instead (in print positions 57-59) 
if indicator 30 is on (i.e., new item this 
year) . 

Lines 05 and 06 on page 12 provide for 

printing a + symbol ,if the cost trend is 
up, a - if it is down, and leaving the 
print position blank if there has been no 
change in cost since the previous report. 
(See page 06, line 15, for setting of indi- 
cators 32 and 33.) 

Lines 09 and 091 on page 12 determine 

whether today^s date (DATE) from the Date 
card or the date (TRNSDA) from the old 
Inventory Master card is to be printed. If 
there were transactions (i.e., the report 
data is not printed while a Master card is 
being processed — N01), DATE is selected; if 
there were no transactions (i.e, the report 
is based on data in the old Inventory Mas- 
ter card — indicator 01), TRNSDA is 
selected. 

Line 10, pn.pacje 12 provides for printing an 
asterisk in print position 120 when Quanti- 
ty Available (i.e., On-Hand + On-Order) is 
less than the Minimum Stock Quantity (see 
page 06, lines 13 and 14, for setting of 
indicator 3 1) . 

Printing the Grand Totals — REPORT File 
(Page 12, Lines 11-17) 

The line is printed at total-output time (T 
in col. 15) , after the last data card has 
been processed (LR indicator on) . It must 
be at total-output time, because the job is 
thereafter terminated if the LR indicator 
is on. The form is upspaced 2 lines before 
printing, providing 3 blank lines between 
the last detail line and the grand totals. 
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First card of each stock-number group (excluding Date 
and Blank cards) 
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Field to be matched between files (excluding Date and 
Blank cards) 
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Custcmer-order item or Merchandise Return card 
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Blank trailer card at end of each transaction-card group 
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Positive On-hand after Receipt or Stock-adjustment card 
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Quantity in Order-item or Return card sufficient for 
PRICEE to apply 



Merchandise item new this year 



14 



Available stock (Cn-hand + Cn-crder) less than Minimum 
Quantity 



15 | Updated Average Unit Cost greater than former 
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15 



Updated Average Cost less than former 



Figure 70 (part I of II) . 



Pre-Eilling with Inventory Control, Assignment of Indicators 
in Figures 67-68 
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Major error: calculation for all cards 
of the stock number group, from the 
point cf error detection, is bypassed, 
and these cards are selected to 
Stacker 4 



Card following Blank trailer card 



Card following Old Master card 



Card following Date (constant) card 



First card of control group if not fol- 
lowing Old Master or Blank 



Obsolete Old Master card: should not 
have been reentered 



Cancelled unfilled Order-item card: 
should not have been re-entered 

03 I Old Master with negative On-hand at 
input: should not exist 



Duplicate Old Master cards, or obsolete 
Old Master card 

Cn-hand negative after Stock Purchase or 
Adjustment card 

Missing cr mispcsitioned Blank trailer 
card 



Part of 
error-detection 
routines 



Figure 70 (part II of II) . Pre-Eilling with Inventory Control, Assignment of Indicators 

in Figures 67-68 



The form is advanced to channel 1 
afterwards. 

Constants describing the fields are 
printed preceding the values. 

A fixed dollar sign is used in the edit 
word for Inventory Value. 



Printing sold-tc and ship-to name and 
address side by side, each on three 
lines, and each from a single card; 



Predetermined total line; 



■j^S/K^. 



INVOICING 

This report utilizes the crder-item cards 
processed in the previous program example 
(Pre-Billing with Inventory Control), in 
conjunction with scld-to and ship-to name- 
and-address cards. The same mail-order 
company is assumed, with mcdif icaticns to 
illustrate more features. 

The example is deliberately kept fairly 
simple, its main purpose being to provide 
an illustration of: 



Summary punching. 



The summary cards can be used for: 

(a) Accounts Receivable, 

(b) Sales report by customer, 

(c) Sales report by salesman; 

Card-type seguence check by Seguence 
entry (cols. 15-16, input 
specifications) ; 

Table look-up. 
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Assumptions 

1. The item cards from the preceding 

example serve as detail cards (customer 
crder-item cards — card 9, excluding 
merchandise-return cards with 11- 
overpunch in ccl. 11). They are 
assumed to have teen scrted ty Ware- 
house Lccaticn and Account Nc. after 
the Pre-Billing operation. 



2. The heading and detail cards have been 
previously match-merged, so that there 
are no missing masters or legitimate 
missing details. (This match-merging 
could have been done by an RPG program, 
or with the Punched-Card Utility CCLAT 
Program, or en a collator.) 

The card with today's date and the 
starting invoice number (less 1) is 
placed ahead of this group of cards. 

The deck is placed in the primary 
hopper cf the MFCM. 



3. Name and address are confined to three 
lines from a single card. 

The presence cf a ship-to card is 
optional. When it is present, it pre- 
cedes the sold-to card; when there is 
nc ship-tc card, the sold-tc name and 
address are to be printed in both 
positions. 

Placing the optional ship-to card 
ahead improves throughput: printing of 
name and address can proceed during 
processing of the sold-to card. If the 
sold-to card were placed first, print- 
ing of name and address could not be 
cemmenced, when there is no ship-to 
card, until the first detail card is 
being processed--only then can the pro- 
gram knew that no further Name-and- 
Address card (namely, a ship-to card) 
must be awaited. 

4. The blank cards, which are to become 
summary cards, are a separate file, in 
the secondary hopper of the MFCM. 
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5. Arbitrarily, the MFCM is used for the 
two files: ether Model 20 I/O devices 
can be used if the File Description 
Specif icatiens are changed. 

6. Stacker Selection has teen arbitrarily 
determined thus: 

Date and Invoice-No. heading card — 

stacker 1; 
Name- and Address cards — stacker 1; 
Detail cards — stacker 2; 
Summary cards — stacker 3. 

7. A disccunt percentage is applied tc the 
invoice total based on a customer-type 
code in the sold-to card. For this, 
table look-up is employed. 

8. a. Certain identifying data is 

repeated on overflew pages. 
t. Invoice totals are tc be printed at 
a predetermined point en the page. 

Figure 71 presents the card layouts and 
Figure 72 portrays the layout of the 
report. Constant headings are not printed 
by the program, because use of a pre- 
printed invoice form is usual. 

In the explanations that follow for the 
applicaticn example, mest of the obvious 
points will be emitted, as the reader is by 
this time familiar with them. 



Seguence (cols. 15-16) is alphabetic, 
because the card appears enly once, and 
does not fall into a seguence within each 
account-number group. 



Stacker selection need not be specified, 
because 1 is the normal stacker for the 
primary hopper of the MFCM. 



No card-type Resulting Indicator is 
needed: the card is never referenced, and 
all calculations are conditioned by indica- 
tors of the appropriate cards. 



Ship-To Card — Page 02, Lines 04-08 

The card, if present, is to precede all 
others cf the group; therefore, it is 
Seguence number 01 (cols. 15-16). If pre- 
sent, only one is permitted; therefore, 1 
is specified in col. 17. Its presence is 
optional; therefore, an in col. 18. 

Control Level 1 is assiqned to customer 
account number — both (1) to perform end-of- 
invoice routines, and (2) to guard against 
cards out of seguence, or missing Sold-To 
card (see calculation specifications). 

Stacker 1 is the normal stacker, and 
need not be designated. 



File. .Description. Specifications (Figure 731 Sold-To Card — Page 02, Lines 09-16 






The input file, named INECBRDS, is asse- 
ciated-with the primary hepper of the MFCM. 
It consists cf one card containing the 
day's date and the starting invoice number 
(less 1) and, for each custcmer account 
number represented, contains — in this 
order: 

One Ship-to Name-and- Address card 

(optional) ; 
One Scld-to Name-and- Address card; 
At least cne Order-Item detail card. 

A file of blank cards (named SUMCARES) , 
which will become the Invoice Summary 
cards, is to be placed in the secondary 
hopper of the MFCM. 

The printer has been assigned the file 
named INVOICE. 

Inp ut Specifica tiens (Figure 7ft — Parts I 
ancLIU ~ 

There is only one input file, named 
INPCARDS, constituted of four card types. 

Date/Invoice-No. Card — Page 02, Lines 
01-03 



Exactly one card (1 in eel. 17) cf this 
type must be present (no in col. 18), and 
it follows the Ship-To card (if this is 
present) ; therefore, eels. 15-16 contain a 
number higher than for the Ship-To card, 
but lower than for the detail cards (page 
03, line 01) . 

Different field names are used for name 
and address in this card: the name-and- 
address data from the Ship-To card (if any) 
is to be printed alongside that from the 
Sold-To card, and must therefore be pre- 
served at least until completion of output 
from the Sold-To card. 

The same field name is used for ACNTNO 
in all cards, because the data should be 
the same from all cards within the group 
and therefore need not be saved from card 
to card: if it is net the same, a control 
break will occur (L 1 is assigned to Account 
No.) . 

Indicator 20 is utilized to recognize 
the first detail card of each invoice — see 
page 06, lines 12 and 13. 

Stacker 1 need not be specified. 
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Order-Item Detail Cards — Page 03 



Our assumptions called for selecting these 
cards to stacker 2: therefore, a 2 is 
entered in col. 42 of line 01. 

The field BOCARD in line 02 is specified 
only to provide an indicator (21) for 
recognition of back-order cards 
(1 1-overpunch in col. 1, making the field 
negative) . 

If the item card was to be cancelled, 
because of unavailability, an 1 1-overpunch 
was punched in col. 7 in the previous 
application example. This makes the Stock 
No. (line 03) negative. Indicator 22 is 
utilized subsequently to control operations 
for cancelled items. 

Unit Price, among other fields, was left 
blank in the previous operation whenever 
the item could not be filled. Indicator 24 
is subsequently utilized to control opera- 
tions for unfilled items. 



Calculati on Specificati ons (Figure 75-- 
Paqe_04i 

Line s 01 -03 cause the Sold-To name-and- 
address data to be moved to the correspond- 
ing Ship-To fields whenever there was no 
Ship-To card (i.e., the first card of the 
control group is a Sold-To card) . At out- 
put time, this will cause the same informa- 
tion to be printed in the Sold-To and Ship- 
To areas on the invoice. 

Line 03.1 causes the Invoice No. to be 
incremented during processing of the first 
card of each Account-No. control group. 
(It was loaded with a value one less than 
the desired starting number.) 

Line 4 specifies cumulation of the gross 
amount from each item card for an invoice 
total. If the item was not filled, the 
GRSAMT field is blank. 



Line 05 causes a search th 
ment table TABCOD for a co 
matches the Discount Code 
customer Sold-To Name-and- 
When a match is found, ind 
on, and the discount perce 
equivalent position of the 
TABPRC is stored and becom 
calculation factor and as 
data. 



rough the argu- 
de that exactly 
in the permanent 
Address card, 
icator 23 turns 
ntage in the 

function table 
es available as a 
output-field 



o 



The tables are defined in File Extension 
Specifications — see page 05. 

In line 06, indicator H1 is turned on — to 
stop the system after this card — if no 
Discount-Code match was achieved. 



Lines 07-12 provide for the following cal- 
culations during total time following the 
last detail card of each invoice: 

1. The invoice gross total is multiplied 
by the table-supplied percent of 
discount to establish the discount 
amount (line 07) — note that 
half-adjustment is used, and 4 decimal 
positions are dropped (there are 2 
decimals in INVGRS and 4 in TABPRC, 
since percentages less than 100 
expressed as ratios fall to the right 
of the decimal point) . 

2. The discount amount is subtracted from 
the gross invoice amount to produce the 
net invoice amount (line 08) . 

3. The three invoice amount totals (gross, 
discount, net) are accumulated in three 
other fields, to provide grand totals 
(lines 09-11) . 

The operations in lines 07-1 1 are 
executed only when the Discount Code 
matched an entry in the argument table 
(indicator 23 on) . 

The specifications in line 12 set on 
indicator H2 — and halt the system after 
this card — if the first card of a control 
group is not a Name-and-Address card (i.e., 
neither a Ship-To nor a Sold-To card) . 

Note ; Since the test is made at total time 
(L1 in cols. 7-8), the first group will 
not be checked: total time is bypassed on 
the first card with Control Level specifi- 
cations. (The test could have been pro- 
grammed for detail time instead; but our 
approach offers the opportunity to remind 
the reader of the initial total-time 
bypass. ) 

File Extension Spec ifications (Figure 
76 — Page. 05) 

Two tables are used in this application — 
one as an argument table (TABCOD) and the 
other as a function table (TABPRC) . For 
convenience, the two tables are punched 
alternately in the same card, but this has 
nothing to do with the manner in which they 
are employed (argument or function) . The 
table cards (in this instance, a single 
card) must be loaded at program-generation 
time. 

There are only 14 codes, and all fit in 
one card; therefore, both the number of 
table entries per card and per table are 
the same. The code is a single character 
(thus, 1 in col. 42) , and the percentage is 
4 digits long (format xx.xx %) . Since the 
term "percent" means "per hundred", the 
decimal point must be moved two positions 
further to the left when multiplying by a 
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percentage: thus, the field contains 4 
decimal positions (not 2) . 

Outp u t-Format Specifications (Figure 77 - 
Parts_I-IIIj_ 

(Refer also to Figures 71 and 72) 

Note that all detail output is specified 
ahead of all total output. 

Detail Printing on the Invoice — INVOICE 
File (Page 06; and Page 07, Lines 01-11). 

This output is performed at detail time 
(D or H in col. 15) . INVOICE was asso- 
ciated with the printer (see page 01, line 
03) . 

Lines 01-^-04 on page 06 control the printing 
of the name on the first print line of the 
page. The Sold-To name (NAMED = Name solD) 
— read from card 2 (assigned card-type 
Resulting Indicator 02) --is printed in 
positions 11-29; the Ship-to name (NAMEP = 
Name shiP) — read from card 01 (indicator 



01) — is printed in positions 58-76. Both 
are printed in the same line on the invoice 
form. 

The printing at the beginning of each 
Account-No. group takes place as the Sold- 
To card is being processed (indicator 02 
on) ; at that time, both the ship-to and 
sold-to information is available, and can 
be printed concurrently (if L1 — instead of 
02 — were specified, only data from the 
first card of the group would be 
available) . 

The names are also repeated at the top 
of overflow pages, at overflow-output time 
(indicator OF) . NL1 is specified, so that 
the old names are not printed at overflow 
time at the top of one new page--f ollowed 
by the new names on the next page from card 
type 02 — when the overflow point and the 
end of a group coincide. 

In the calculation specifications (page 
04, line 01), the Sold-To name was moved 
into the Ship-To name field if there was no 
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Ship-To card; therefore, both names are the 
same in that case. 
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Lin e_s 05-07 and C8-10 provide the eguiva- 
lent functions for the second and third 
lines of the addresses. However, the 
street addresses and city/state are not 
repeated en overflew pages. 

Nc entry is reguired in cols. 17-22 of 
line 08, because spacing tc the 
miscellaneous-data print line is specified 
in line 11. The in col. 18 is entered 



only for compatibility with other RPGs (any 
entry 0-3 would satisfy that reguirement) . 

Lines 11-12 (and, as explained below, line 
13) control the conditions under which the 
miscellaneous data is printed above the 
first detail line en the invoice. 

The form is skipped to the next channel- 
2 punch before the miscellaneous-data line 
is printed, and to the next channel-3 punch 
(first detail line) thereafter. 
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of specifications lines CI, 02, 08, and 11) 
should then read : 

Line 01—** 01 02 

Line 02—63 C1 «5 

Line 08— tt tt 02 

Line 11— tt> tt 03 



The miscellaneous-data line is printed 
after the name and address fcr a new group, 
and ahead of the first detail line. It is 
also printed in the same position on over- 
flow pages (when overflow dees net coincide 
with the end of a qroup) ; but seme of the 
fields are net printed (NOF) on overflow 
pages. 

Because Custcmer Order No. (OEDENO) is 
not available until the first detail item 
card has been read, the miscellaneous-data 
line must be printed after the first detail 
item card has been read, yet above the 
regular detail data. Therefore, it is 
printed during processing of a detail card 
(indicator 03 in specifications line 12) , 
yet before the print line for the regular 
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Specifying N20 with 03 in line 12 
permits the output to be performed for 
the first detail card, because indicator 
20 is off. As the data from the DSCTCO 
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ecify Control Level L1 for'OEDENO 

03, line 10) . 

of N20 on page 06, line 12, speci- 

line 13, page 06 is then not 
d; nor is indicator 20 in line 15, 
02 then required, 
hnigue might be employed if the 
nts of all pertinent fields had to 
eserved for summary punching. 
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Specifications lines 13- 1 9 specify the data 

to be printed in the miscellaneous-data 
print line. 

Although the field DSCTCO is not sup- 
pressed for overflow lines (no NOT entry) , 
nothing will be printed from it, because it 
is blank at that time (see above) . 

Lines 01-11, page C7 contain the specifica- 
tions for printing of the item detail 
lines. 

The ampersand symbols in the edit word 
for WHSLCC provide blank spaces on the 
invoice between the three digits. 
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The Q1Y in line 06 pertains to Quantity 
Ordered; in line 07, it represents Quantity 
Shipped (see Figure 72) , although the data 
is taken frcm the same field. The quantity 
in line 07 is therefore allcwed to print 
only if the order item was filled 
(N24 — UNTPEI field not blank) — it was part 
of the assumptions in the preceding 



applicaticn example that no partial fills 
would be made: either stock was sufficient 
to satisfy the quantity ordered, or the 
order item was not filled at all (it was 
then back-ordered or cancelled) . 
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CANC is printed in the Quantity-Shipped 
area on the invoice (see specifications 
line 09) if the item was cancelled (indica- 
tor 22 — see page 03, line 03). 

Summary Punching — SUMCAEDS File (Page 07, 
Lines 12-20 and Page 08, Lines 01-05) 

This output is performed at total time (T 
in col. 15), at the end of an Account-No. 
control group (L 1 in Output Indicators, 
line 12) , when all totals accumulated from 
the cards cf the group are available. 

The file name SUMCAEDS was associated 
with an output file in the secondary hopper 
of the MFCM (see page C1, line 02). The 
cards are directed to stacker 3. 

Lines 13-20 on page 07 contain punch — 

rather than interpret--instructions, 
because col. 4 1 is blank or 0. 

I i n e s , . 1 - 5 on p a g e 08. contain interpreting 
instructions for selected fields — they are 
interpreting, rather than punching, speci- 
fications because col. 41 contains a print- 
head number (i.e., is not blank or 0) . 

Note 1: The interpreting feature is avail- 
able enly on the MFCM Model A1. 

Note 2: Punching of the summary card was 
specified between detail and total printing 
to optimize throughput — generally, alter- 
nating forms printing and card punching 
tends to increase throuqhput. 

Total Printinq on the Invoice — INVOICE File 
(Paqe 08, Lines 06-16) 

The form is first advanced to a predeter- 
mined tot-al line (04 in eels. 19-20, speci- 
fications line 06) . Three lines of totals 
are then printed at total time (T in col. 
15) when the L1 indicator is on (i.e., 
after each Account-No. qroup) . The form 
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is double-spaced between the total lines. 
In specifications line 11, no entry is 
needed in col. 18, because forms advance 
before the grand-total line is specified in 
line 13--a zero is entered cnly for compa- 
tibility with other RPGs (for that purpose, 
any digit 0-3 is satisfactory) . 
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col. 39) to be ready for accumulation of 
the total for the next group. Note that 
the Blank-After instruction could not be 
entered en page 07 (SUMCARDS) ; otherwise, 
the field would be zero before output for 
printing. 
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Whenever the total in specification line 
07 is transferred to the output-storage 
area, the field is cleared to zero (B in 



Lines 13-16 control the printing of the 
grand totals at the end of the report (LR 
indicator on) . The form is advanced to a 
new invoice page, and all three final 
totals are printed on the first line. 
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APPENDIX A. STORAGE REQUIREMENTS AND TIMING 



STORAGE EEQUIREMENTS 

The storage requirements, for both program 
generation and processing of the object 
program, depend upon the number and types 
cf specifications used by the programmer in 
the source program. Approximations for the 
Model 20 card RPG program fellow. 



Program Generation 

The RPG generator and the protected storage 
area require an approximate average cf 1900 
bytes. In addition, the requirements for 
each card punched from the specifications 
forms are: 



Field descri 



4^\ 



1. File description card: 

2. Eile extension card: 

3. Input specifications card: 
Record identification 

+ 3 bytes for each card 
code 

Field description 

+ 4 bytes if the specifi- 
cation FIELD-RECORD 
RELATION and/cr 
FIELD INDICATORS is 
used 

+ 2 bytes if Sterling 
Field has an entry 

4. Calculation specifications 

card : 

+ 8 bytes 

of" th 

FACTO 

FIELD 
cr +12 bytes 

these 






5 tytes 



if one cr two 
e fields FACTOR 1, 
R 2, and RESULT 
contain an entry 
if all three cf 
fields are used 
+ 3 bytes each time the 
entry in the INDICA- 
TORS field (eels. 
9-17) differs from the 
corresponding entry 
in the preceding line 
+ 3 bytes if resulting in- 
dicators are used 
+10 bytes for each literal whose 
overall length (including sign 
cr apostrophes) is longer than 
six characters (See Note 1 at 
the end cf Appendix A) 



Output specifications card: 
File identification 

+ 3 tytes if output indi- 
cators are used 



7 tytes 



+ 4 



+ 4 



+ 2 



tytes 
f icat 
INDIC 
BLANK 
bytes 
a con 
byte 
of a 
word 
the e 
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bytes 
has a 



ptic 
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ATOR 
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for 
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8 bytes 



speci- 

UT 

d/or 

s used 

h use of 
edit word 
position 
cr edit- 

xcluding 
apostro- 

e 1 at 

pendix A) 

ling Field 



6. Defined fields: 

(See Note 1 at the end 
14 tytes of Appendix A) 

For each field name defined 
18 bytes in the input or calculation 

specifications 

For each literal defined in the 
7 tytes calculation specifications 

that does not exceed 

six characters 



8 bytes 



8 bytes 



7 tytes Pro cessing of O bject Program 

Nearly all available core storage can be 
used by the object program. The storage 
requirements for the object program are 
based upon four factors: 

1. Easic routines 



2. Input/output routines 

3. Number of fields, literals, and indica- 
tors used 

4. Processing routines 

Basic Routines 

The basic routines contain the general 
logic of the object program. Their 
approximate storage requirements are as 
follows : 

Basic requirement, including 
the protected storage area 1090 bytes 
+ 40 bytes for using 
Matching Fields 
specifications 
+120 bytes fcr multiple 
input files. 

Thus, the maximum requirement for basic 

routines of one input file is 1130 

bytes; for three input files, 1250 
bytes. 
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Input/Output Routines 

The storage requirements for the I/O rou- 
tines depend upon the particular I/O units 
used in the program. 



1. IBM 2560 Multi-Function 
Card Machine basic 
requirement 

if bcth hcppers are used, 

add 

for input usinq one 

hopper, add 

or 
for input using two 
hoppers, add 
for punched output, add 
for card printing, add 
+ 64 bytes for each 
print head used 

2. IBM 2520 Card Read-Punch, 
Model A1 

for input cnly 

for input and output 

for cutput only 

3. IEM 2501 Card Reader 

4. IBM 2520 Card Punch, 
Model A2 or A3 

5. IBM 1442 Card Punch 

6. IBM 1403 or 2203 Printer 
for Dual-Feed Carriage, 
add 



240 bytes 

30 bytes 

140 fcytes 



240 bytes 
150 bytes 
15C bytes 



230 tytes 

39C bytes 

190 tytes 

150 bytes 



190 bytes 

160 bytes 

100 bytes 

30 bytes 



Number of Fields, Literals, and Indicators 
Used 



word — regardless of how often it appears in 
the program. 



Each entry in a table is treated like a 
literal: if it is alphameric, the number 
of bytes of core storage reguired is egual 
to the number of positions (N) in the 
entry; if it is defined as numeric, the 
number (n) of bytes reguired is determined 
by the above formula. For the entire 
table, the storage reguirement is then: 



S = L (K + 1) + 6 

where 

S = number of bytes needed to store entire 

table 
L = length, in bytes, of one table 

entry ( = N, if alphameric; = n, if 

numeric) 
K = number of entries in the table 

The 1 in (K + 1) represents the "hold" area 
for the value selected frcm the table (see 
LOKUP operation, under Calculation Specifi- 
cations in the body of the manual)-. 

The number of bytes reguired for each 
contrcl level equals the total number of 
positions in the control field pertaininq 
to this level. (See Note 2 at the end of 
Appendix A) 

The number of bytes reguired for match- 
ing fields levels (M1, M2, M3) is computed 
by the following formula: 



\jy 



ni 



11 'M + IV 



Alphameric fields and literals require one 
byte for each positicn. The number cf 
bytes for numeric fields and literals can 
be computed with the follcwinq formula: 



If N is odd 



If N is even: 



n = 



N + 1 
2 
N + 2 
2 



N = number of positions in the field or 

literal 
n = number of bytes reguired for the 

numeric field or literal 

Constants and edit words are always con- 
sidered alphameric literals when determin- 
ing storage reguirements ; but the actual 
length of an edit word exceeds the speci- 
fied length by cne or two bytes. 

Core-storage, -space is required cnly once 
for each field, literal, ccnstant, and edit 



where N stands for the total number of 
positions in the pertinent fields and M 
stands for the number of input files. (See 
Note 2 at the end of Appendix A) . 

The basic requirement for the special 
indicators (L0-L9, 1P, MR, H1, H2, OF, OV, 
LR) is 21 bytes total, regardless of wheth- 
er they are used in the program. Any ether 
indicators used in the program take up one 
byte each, once. 



Note: At least 200 bytes are always 
reserved for indicators and fields. 

Processing Routines 

Processing routines contain the instruc- 
tions created from the source specifica- 
tions. Therefore, the storage reguirements 
for these routines depend upon the deqree 
of complexity of the program and the number 
of statements used. There are no hard-and- 
fast rules for the computation of these 
requirements. 
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The listing below shows the approximate 
requirements of the more important entries. 
The storage requirements for processing 
routines are obtained by adding up the 
requirements of all entries used. 



1. Input Specifications 

(a) Record Identification 
Entries; 

Basic requirement for 

each main record 22 bytes 

Basic requirement for 

each OR record 1 4 bytes 

+ 2 bytes for a non- 
sequential main 
record (alphabetic 
entries in column 
15-16) 
+ 8 bytes for test of 
record identifica- 
tion code "C" 

or +14 bytes for test of 
record identifica- 
tion code "D" 

or +12 bytes for test of 
record identifica- 
tion code "Z" 

(b) Field Description Entries 
Alphameric fields 6 bytes 
Numeric fields 12 bytes 

+ 8 bytes for field- 
record relation if 
it differs from 
that in the previ- 
ous line 

+18 bytes for first 
field indicator 

+12 bytes for second 
field indicator 

+12 bytes for third 
field indicator 

(c) Control Levels and 
Matching Fields: 

For each file with match- 
ing fields 14 bytes 
For each control 

level used 14 bytes 

For each record that 
contains split con- 
trol fields / 4 bytes 
For each record that > or 
contains split con- 
trol fields with field 
record relation ' 12 bytes 
For each record that 
contains matching 

fields * 4 bytes 

For each record that 
contains unsplit con- 
trol fields * 4 bytes 
For each control 
field or matching 

field entry * 6 bytes 

* ( See Note 3 at the end of Appen- 
dix A) 



Calculation Specifications 

For ADD/SUB: 

If 

(a) the same name is used 
for one factor field 
and the result field, 
and 

(b) the length of the other 
factor is equal to or 
shorter than the length 
of the result field, 
and 

(c) the number of decimal 
places is equal for the 

fields 6 bytes 

For three operands, other 
than (a) and (b) , above 36 bytes 
+ 6 to 32 bytes if 
the number of 
decimal places 
differs between 
the fields. 



For Z-ADD: 

If the number of decimal places 

in the fields is 

equal 6 bytes 

unequal 24 to 44 bytes 

For Z-SUB: 

If the number of decimal places 

in the fields is 

equal 18 bytes 

unequal 30 to 50 bytes 

For MULT: 

without decimal 
alignment 



30 bytes 



36 to 46 bytes 



(Dj. + D 2 = Dr) 
with decimal 
alignment 
(D ± + D 2 * Dr) 
(See Note 4 at the end of Appen- 
dix A) 

For DIV: 

without decimal 

alignment 

(Dj. - D a - H = Dr) 36 bytes 

with decimal 

alignment 

(Da. - D 2 ~ H # Dr) 

46 to 52 bytes 
(See Note 4 at the end of Appen- 
dix A) . 



For MVR: 



without decimal 
alignment 

(Dm = Dr) 12 bytes 

with decimal 
alignment 

(Dm * Dr) 18 to 28 bytes 

(See Note 4 at the end of Appen- 
dix A) . 
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For KCVE: 

From alphameric tc 
alphameric field 
From numeric to 
numeric field 
From numeric to 
alphameric field 
From alphameric 
tc numeric field 

For HOVEL: 

From alphameric tc 
alphameric field 
From numeric tc 
numeric field 
From numeric tc 
alphameric field 
From alphameric 
to numeric field 



12 tytes 

\2 to 18 tytes 

12 tytes 

18 to 24 tytes 

12 tytes 

24 to 30 tytes 

12 to 18 tytes 

24 to 3C tytes 



For MLLZC, MLHZO, MHIZC, MHHZO: 
From alphameric to 
alphameric field 12 tytes 
From numeric tc 

numeric field 12 tytes 

From numeric tc 

alphameric field 18 tytes 
From alphameric to 
numeric field 24 tytes 

For CCMP: 

numeric fields-- 

If the number of 

decimal places is 

egual for the fields 30 tytes 

If the number of 

decimal places 

differs between 

the fields 36 to 40 bytes 



alphameric fields- 
If both fields are 
Of egual lenqth 
If field lengths 
are unegual 

For EXIT: 

For BLABL: 

For GOTO: 

For TAG: 

For LOKUP: 

For TESTZ: 



If indicator (s) assigned to: 
Plus, Minus, and 

Blank 54 tytes 

Plus and Minus 46 tytes 

Plus or Minus, and 



12 


bytes 


28 


bytes 


4 


bytes 





tytes 


4 


tytes 





tytes 


60 to 108 


tytes 


24 to 54 


tytes 



Blank 

Plus or Minus 

Elank 



For SETOF, SETCN: 
basic 
+ 4 bytes for second 

indicator 
+ 4 bytes for third 

indicator 



42 bytes 
24 bytes 
34 bytes 



10 bytes 



o 



For half-adjusting 

For each different 
resulting indicator 
within one line 



6 to 16 bytes 



Testing co 

indicators 

INDICATORS 

17) — each 

However 

is cons 

(a) all 

cat 

the 

in 

ide 

ord 

non 

ind 

spe 

RES 

TOR 

59) 

ced 



(b) 



nditioning 

assigned in 

(cols. 7 to 
indicator 

, no storage at all 
umed if 

the same indi- 
ors appear in 

preceding line 
INDICATORS, in 
ntical form and 
er, and 
e of the same 
icators are 
cified in 
ULTING INDICA- 
S (cols. 54 to 

in the pre- 
ing line. 



Output-Format Spec 
(a) File Identific 
Control: 
Basic reguirem 
each main reco 
Easic reguirem 
each OR record 
+ 4 bytes f 
stacker 
or spac 
skip en 
not if 
record 
ceded b 
record 
ing the 
stacker 
space a 
entry 
+ 6 bytes f 
printin 
+ 8 bytes f 

output 
+ 2 bytes f 
punchin 



if ications 
aticn and 

ent for 

rd 

ent for 

or each 

select 
e and 
try, but 
the OR 
was pre- 
y another 
contain- 

same 

select or 
nd skip 

or card 

g 

or each 
indicator 
or card 

g 



12 bytes 



8 bytes 



( 






8 bytes 
4 bytes 
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(b) Field Description Entries: 
Basic Requirement 

+ 8 bytes for zero 
suppress 

+ 8 bytes for editing 

+ 8 bytes for each 
output indicator 

+ 6 bytes for Blank 

After (numeric field) 

-1-10 bytes for Blank After 
(alphameric field) 

+ another 4 bytes for 

Blank After if a Zero- 
or-Blank indicator is 
involved 

-f 6 bytes for each line 
with field name PAGE, 
and an additional 6 
bytes if output indi- 
cators are specified 
in such line. 



Model A2 
6 bytes 12 seconds with the 

2520 Card Bead-Eunch, Model A1 or 

2520 Card Eunch, Model A2 
20 seconds with the 

2520 Card Eunch, Model A3 
70 seconds with the 

1442 Card Eunch, Model A1 

Note: The times given above refer to a 
core-storage capacity of 4096 bytes. 

Eroc es sing of _the_0bj ect ^Program 

The time required to process the object 
program depends upon the complexity of the 
specifications and the particular I/O units 
involved. A precise timing calculation of 
a specific EPG object program requires 
detailed knowledge of the BPG generator. 
No simple rules for timing can be used. 






o 

^M^^ 



TIMING FOR THE RPG PROGRAM 

Generat ion of Ob ject Program 

The time required for generating the ofcject 
program is estimated by the number of lines 
written on the specifications sheets. The 
first 50 specifications lines require 
about: 

3.5 minutes with the 

2560 Multi-Function Card Machine, 

Model A1 

2501 Card Reader, Model A1 

2520 Card Read-Punch, Model A1 
2.5 minutes with the 

2501 Card Raader, Model A2 
5.5 minutes with the 

2560 Multi-Function Card Machine, 

Model A2 

Each additional 25 specifications lines 
require about: 

0.5 minutes with 

input devices attached to an IBM 

System/360 Model 20, 

Submodel 1, 2, or 5, or 
0.8 minutes with the 

2560 Multi-Function Card Machine, 

Model A2. 

The time required to punch out the 
object-program deck at the end of the 
generation run is: 

60 seconds with the 

2560 Multi- Function Card Machine, 

Model A1 
80 seconds with the 

2560 Multi-Function Card Machine, 



Note 1 



When determining the core-storage 
requirements for literals, constants, 
edit words, and field names, each is 
counted only once — regardless of how 
often it appears in the program. 



Note 2 



Fields used for control 1 
matching fields are store 
for these purposes — apart 
storage for calculations, 
The just-stated storage r 
refer only to the control 
matching-f ields operation 
purposes, each position i 
numeric as well as in alp 
numeric fields are not pa 



evels and/or as 
d separately 
from their 
output, etc. 
equirements 
-level and 
s. lor these 
s counted, in 
ham eric fields: 
eked. 



Note 3 



Does not apply if the record was pre- 
ceded by another record containing the 
same fields (unsplit control fields and/ 
or matching fields) in the same columns. 



Note 4 



D1 = number of decimal places in Factor 

1 
D2 = number of decimal places in Factor 

2 
Dr = number of decimal places in Result 

Field 
Dm = number of decimal places in 

Remainder 
H = 1 , if Half-Adjust specified; 

0, if Half- Adjust not specified 



Appendix A. Storage Requirements and Timing 259 



APPENDIX_B_ t MACHINE. UNITS AND FEATURES, REQUIRED.AND SUPPORTED 



o 



The Report Program Generator requires a 
minimum of machine units to generate an 
object deck or to process an object pro- 
gram. These are called ra gu ir ed u nits. 
Many features and units of the IBM System 
/360 Model 20 can be utilized in the Model 
20 RPG, even though they are not required 
for object deck generation or for object 
program processing. These are called sup- 
per ted_uni ts_an d_f eat ur es . The required 
and supported units and features for the 
Model 20 card RPG are itemized below. 
Model 20 CPS RPG does not use 24,576 or 
32 # 768 bytes of main storage. 

MACHINE UNITS REQUIRED 

Seneg.lfei.°iI-O.I- OfejgSl--..i > rog,g a l 

The minimum machine requirements for 
generating an RPG object program are as 
follows: 

• 4096 bytes of core storage, 

• One card-reading device (if the 2501 
Card Reader is attached to the system, 
it must be used) . 

Processing, of Object Program 

The minimum machine requirements for execu- 
tion of the RPG object program are as 
follows: 

• 4096 bytes of core storage 

• Input/Output devices as specified for 
the object program. 



MACHINE UNITS AND FEATURES SUPPORTED 

Gen er ation, o f _ Ob j e c t_ P r o jjr am 

The following machine units and features 
are supported for program generation, in 
addition to the required units: 

• Additional 4096, 8192, or 12,288 bytes 
of core storage 

• One printer with at least a 48- character 
set, for program listings 

• A second card-reading device (if the 
2501 is attached to the system, it must 
be used as one of the card-reading 
devices) . 

• A card-punching device, if the object 
program is to be punched. 



Proc es s ing of Object Program 

The following machine units and features 
can be utilized during the processing of 
object programs (the particular units that 
can be attached to the system depend on the 
submodel of the IBM System/360 Model 2 
that is used) . 

• IBM 2020 Processing Unit with 4096 
(minimum requirement) , 8192, 12,288, or 
16,384 core-storage bytes. Programs 
compiled for an IBM System/360 Model 20 
Submodel 1, 2, 3, or 4, will run on a 
24K or 32K Submodel 5. 

• One printer with up to 144 print 
positions. 

• Dual-Feed carriage for the IBM 2203 
Printer. 

• Card-Printing special feature for the 
IBM 2560 Multi-Function Card Machine, 
Model A1. 

• One, two, or three input files. 

a. One input file: 

2560 MFCM, hopper 1, or 
2560 MFCM, hopper 2, or 
2520 Card Read-Punch, or 
2501 Card Reader 

b. Two input files: 

2560 MFCM, hoppers 1 and 2, or 
2560 MFCM, hopper 1 and 2501 Card 

Reader, or 
2560 MFCM, hopper 2 and 2501 Card 

Reader, or 
2520 Card Read-Punch and 2501 Card 

Reader 

c. Three input files: 

2560 MFCM, hoppers 1 and 2, and 2501 
Card Reader 

• One, two, or three card output files: 

a. One card output file: 

2560 MFCM, hopper 1 or 2, or 
2520 Card Read-Punch, or 
2520 Card Punch, or 
1442 Card Punch 

b. Two card output files: 

2560 MFCS, hoppers 1 and. 2, or 
2560 MFCM, hopper 1 and 1442 Card 

Punch, or 
2560 MFCM, hopper 2 and 1442 Card 

Punch, or 
2520 Card Read-Punch and 

1442 Card Punch, or 
2520 Card Punch and 1442 Card Punch 

c. Three card output files: 

2560 MFCM, hoppers 1 and 2, and 
1442 Card Punch. 



o 
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APPENDIX C. ERROR CHECK LIST 



After the programmer has written the speci- 8. 
fications, and before the source deck is 
keypunched from them, he should thorouqhly 
"desk check" the program. Desk checking 
consists of a visual check of the specifi- 9. 
caticns sheets fcr obvious mistakes, and 
may also include a "manual run" of data 
records through the program. Desk checking 
can eliminate many errors in a new program. 10. 

The following are suagestions of items 
to check which, experience indicates, tend 11, 
to be sources of error. It is also an 
excellent idea to review two other appen- 
dices as reminders of points that must not 
be overlooked when writing a program: 



Appendix G - Summary of RPG Specifica- 
tions, and 

Appendix H - RPG Program Listing (diag- 
nostic messages) 



FILE DESCRIPTION SPECIFICATIONS 



o 



15, 



16, 



17 



o 



12 



13, 



14, 

1. File names must be left- justified . 

2. File type must be I, 0, or C. 

3. DEVICE must contain a valid code. 

4. SEQUENCE (A or D) must be assigned if 
MATCHING FIELDS in the input specifica- 
tions contains an entry, and it must be 
the same for all input and combined 
files. 

INPUT SPECIFICATIONS 

1. The first line must be a record identi- 
fication line. 18, 

2. Record identifications (cols. 7-42) and 
field descriptions (cols. 43-74) must 
not be specified in the same line. 

3. Tile names must refer to input or com- 19, 
bined files. 

4. File and field names must be 
left- justified. 

5. Every main record-identification line 
must have a SEQUENCE entry. 

6. Any alphabetic SEQUENCE entry in cols. 
15-16 must precede any numeric entry. 20, 

7. The first Numeric SEQUENCE must be 01 
in eels. 15-16. 



Numeric SEQUENCE entries must have 1 or 
N in NUMBER. 



FIELD LOCATION — From and To—must be 
within the limits 1 to 80. 



A field defined as numeric must not be 
specified as greater than 15 positions. 

Field length, format (alphameric or 
numeric) , and number of decimal places 
(if numeric) must be identical every 
place that the same field might be re- 
defined, anywhere in the program. 

The number of decimal places specified 
for a numeric field must not exceed the 
field length. (Exception: packed 
input. ) 

Field Indicators must not be specified 
in PLUS or MINUS for alphameric fields. 

There must be an entry (M 1 , M2, or M3) 
in MATCHING FIELDS for at least one 
card type in each input and combined 
file when there is more than one input 
or combined file. 

The highest level for Matching Fields 
is M3. 

A Matching-Fields level (M1, M2, or M3) 
cannot be split. 

The total number of positions for one 
Matching-Fields level or one Control 
Level must be uniform in all records 
with which it is used. 

a. Control Levels must. be specified in 
ascending seguence. 

b. The aggregate- length of a split 
Control Level must be uniform. 

Remember that Field Indicators assigned 
to ZERC-or-BLANK are on at the begin- 
ning of program execution, and until 
data is read into the field or the 
indicator is turned off by a calcula- 
tion specification. They also turn on 
when the field is cleared by a Blank- 
After instruction in output 
specifications. 

Do not specify stacker selection on 
input for a combined-file card type for 
which punching or document-printinq is 
to be performed. 
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21. If PAGE is specified as an input field, 
it must he defined as numeric, and 4 
positions long. It cannot be read in 
packed format. 

22. Note that card punch-ccmbinaticn 12-6-8 
= + for literals — not 12 (=&) . 



CALCULATION SPECIFICATIONS 

1. All detail-time calculation specifica- 
tions must precede those for total time 

(Lx in cols. 7-8) . 

2. Operation codes must be left- justified, 
and worded exactly as described in the 
manual. 

3. Eield names and literals must be 
left- justified. 

4. Alphameric literals must be enclosed in 
apostrophes, and numeric literals must 
not be. 

5. Field lenqth, format (alphameric cr 
numeric) and number of decimal places 

(if numeric) must be identical every 
place that the same field night be 
redefined, anywhere in the program. 

6. A field defined as numeric must net be 
specified as greater than 15 positions. 

7. The number of decimal places specified 
for a numeric field must net exceed the 
field lenath. 



14. There is no automatic decimal alignment 
in LCKUP or Move operations. 

15. The field names in Factor 2 and in 
Result Field (if used) in a LOKUP 
operation must start with TAB. 

16. A table name in an RLABL line must be 
exactly four characters lcng, the first 
three being TAB. 

17. A EESULT FIELD name may not begin with 
TAB unless the operation code is LCKUP 
or ELABL. 

18. EESULTING INDICATORS must be blank for 
all Mcve operations, and for GOTO,. TAG, 
EXIT, and RLABL operations. 

19. Half-Adjust must not be used with a DIV 
operation if an MVR operation follows. 

20. The pertinent DI V-operation specifica- 
tions must be in the line immediately 
preceding an MVR operation. 

21. An MVR-operation line must have 
identical entries in INDICATORS (cols. 
7-17) as the preceding DI V-operation 
line . 

22. Remember that total-time calculations 
are bypassed on the first card and — if 
control levels are specif ied--until 
after the first card of a type with 
Control Level specified. 



o 



o 



TJTT U pVTPHCTnM eppf 



:c 



xr ittt x iu wo 



An alphameric field must never exceed 
256 positions. An alphameric field 
used in a LOKUP operation is limited to 
a length of 80 characters; in a CCMP 
operation, it mast net be longer than 
40 characters. 



Table names must begin with TAB, and 
must be four to six characters long. 
If the table name is to be referenced 
in a E.A.L. subroutine, it must be 
exactly four characters long, including 
TAB as the first three. 



9. An operation (except certain Mcve 
operations) must not involve both 
alphameric and numeric fields. (How- 
ever, the function table in LOKUP may 
differ in format from the argument 
table.) 

10. All arithmetic operations reguire 
numeric fields, and the data must con- 
sist of valid digits (0-9 only, plus a 
sign in the low-order position) . 

11. TESTZ reguires an alphameric field. 

12. An entry in RESULTING INDICATORS is 
mandatory in CCMP, LCKUP, SETCN, SETOF, 
and 1ESTZ operations. 

13. Factor 1 and Factor 2 must have the 
same field length in LCKUP operations. 



PACKED (cols, 
blank. 



43 and 55) must be left 



If table LCKUP involves a RESULTING 
INDICATOR in HIGH cr LOW, SEQUENCE (A 
or D) should be specified. 



OUTPUT-FORMAT SPECIFICATIONS 

1. All detail time output (D or H in col. 
15) must be specified ahead of all 
total-time output (T in col. 15) . 

2. The first line must be a file- 
identification line. 

3. Each main file-identification line must 
have an entry in TYPE (col. 15). 



| 1 
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4. 



5. 



6. 



7. 



9. 



10. 



11 



12 



13 



o 



14 



15 



File-identification and field- 
description must not be specified in 
the same line. 

File names must refer to output or com- 
bined files. 

File and field names must be 
left- justified. 

Each field-description line must have 
an entry in END POSITION IN OUTPUT 
RECORD. 

ZERO SUPPRESS must be blank if 
CONSTANT-or-EDIT WORD contains an 
entry, and vice versa. 

ZERO SUPPRESS can only be specified for 
a numeric field. 

Constants and edit words must be left- 
justified, and enclosed in apostrophes. 

An edit word can only be specified for 
a numeric field. 

A constant (cols. 45-70) and a field 
name (eels. 32-37) are mutually 
exclusive. 

An edit word can cause a field to con- 
sume more space in the output record 
than the defined field length. There- 
fore, when specifying END POSITION IN 
OUTPUT RECORD, make sure not uninten- 
tionally to overlay portions of succes- 
sive fields. 



a. 



b. 



c. 



Each time 
it is fir 
therefore 
output fi 
unless th 
advance e 
PAGE is a 
numeric, 
zoned. N 
Suppress 
used. 
Entries i 
line with 
condition 
the indie 
fied, the 
the PAGE 
before th 
tc output 



PAGE is 
st incre 
, do not 
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e number 
ach time 
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n OUTPUT INDICATORS O 
field name PAGE do n 
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ator conditions are s 
y cause the contents 
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ut, 
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to 

n is 
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f a 
ct 

when 
atis- 
of 
0, 
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o 



Output to a file occurs each program 
cycle (at detail or total time — 
depending on the entry in col. 15) , 
unless indicators are entered in OUTPUT 
INDICATORS, and the specified indicator 
conditions are not satisfied (i.e., an 
indicator preceded by N is on, or one 
not preceded by N is off). Therefore, 
three cautions are in order: 



a. Output will occur at detail-output 
time b ef ore the first card has been 
read (see Figure 6, RPG Program 
Logic) unless conditioned by the 
negative status (Nxx) of an indica- 
tor that is then on (e.g., 1P) , or 
by the positive status (f>xx) of an 
indicator that is then off (e.g., a 
card-type Resulting Indicator) . A 
common error is the conditioning of 
an output file by only NMR — and, of 
course, the MR indicator is off in 
the beginning. (Indicator 
Hierarchy — Figure 11 — shows which 
indicators are on in the 
beginning. ) 

Printing before the first card 
has been read is normal for con- 
stants used as report headings, and 
for page number (PAGE) if it is to 
start with 1; but output from data 
fields would be blank or zero. 
Usually, the desired printing at 
that time is conditioned by indica- 
tor 1P. 

Punching of combined-file cards 
before the first card has been read 
will completely disrupt the 
program. 

b. Indicators assigned to ZERO-or- 
BLANK in FIELD INDICATORS (input 
specifications) or in RESULTING 
INDICATORS (calculation 
specifications — arithmetic and 
TESTZ operations) are on at the 
beginning of program execution, and 
after execution of field- 
description specifications which 
include Blank-After (B in col. 39) . 

Care is therefore reguired not 
to affect output inappropriately 
because of initial or premature ON 
status of an indicator. 

c. In a file-matching operation, a 
card will be processed (for output 
only) from each file during the 
same program cycle when the files 
match, if the only Output Indicator 
specified is MR. 

This means, for instance, that-- 
when a matched secondary-file card 
is being processed — a primary-file 
card belonging to the next group is 
also processed for output; but it 
is never read. 
Therefore, the output for all card 

files being matched should always 
also be conditioned in OUTPUT INDI- 
CATORS by their card type (or by 
the negative — N — of the other card 
types) , besides the MR indicator 
condition. 



(See Program, Examples, P re- Bil ling with 
Inventory Control. )_ 
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16. When there are AND cr OE lines, each 
file-identification line in the group 
must have Output Indicators specified. 



17. A Blank-After instruction (B in ccl. 
39) causes the field tc be cleared (to 
blank if alphameric, tc zeros if 
numeric) as scon as the data has been 
transferred to the ou cput-storage area. 
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18. Stacker selection must not be specified 

for the same card type (cf a combined 

file) in both the input and output 
specifications. 

If an output operation is to be per- 
formed, stacker selecticn--if any — must 
be specified in the output 
specifications. 



19. Remember that overflow-output time is 
distinct from detail- or total-output 
time. If OF (or OV) appears in OUTPUT 
INDICATORS of a file-identification 
line, and OF (or OV) is on after total- 
time output, the output specified under 
that file-identification line is per- 
formed at overflow-output time. 

Therefore, be careful — if an OR line 
calls for the same output under another 
condition (e.g., L1) — that the output 
dees net occur twice in the same cycle. 
(Usually, the OF line is also made con- 
tingent upon the negative of the other 
condition — say, NI. 1) . 

20. Bear in mind that total-time output is 
bypassed in the first program cycle 
and — if Control Levels are specified — 
until after the first card of a type 
for which Control Level is specified. 

21. On run-in, a specified Control Level 
indicator does not turn on until the 
first card with non-zero (alphameric 
field) data, or non-zerc and non-blank 
(numeric field) data, in the control 

field has been read. 

22. Forms movement is suppressed when cols. 
17-22 in the file- identification line 
are blank (except in OR lines when a 
preceding line specifies forms 
control) . 



o 
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APPENEIX_E_. CODE STRUCTURE, COLLATING SEQUENCES, DATA FORMATS 



Although this appendix may be cf general 
interest, the programmer need be familiar 
with it cnly if: 

1. Input cr output data is in packed for- 
mat; or 

2. An operation is dependent on sequence, 
and the cards are in a non-standard 
seguence; or 

3. Uncommon characters cr zones are 
invclv€d in the data and operations. 

The information provided here is in con- 
densed and ncn-technical ferm. Greater 
detail, together with more technical data, 
can be found in the SRL publication IBK 
System/36jp Model 20 Functional Characteris- 
tics , Form A26-5847. 



2. Any EBCDIC code can be referenced 

(e.g., in machine- language programming) 
by no more than two characters. 



The symbols chosen to express the 16 
permutations of bits in a half-byte in 
System/360 are the digits 0-9 plus the let- 
ters A-F. This is known as a hexadecimal 
code — forming "sixteen" from the Greek for 
"six" and the Latin for "ten". (The system 
itself converts between hexadecimal and bit 
representation.) 

Since each upper half-byte value may be 
associated with every lower half-byte 
value, a 16 x 16 matrix results, yielding 
256 unique bytes. 

Comparison cf Hexadecimal and Decimal 
Notations 






CODE STRUCTURE 

lh .§_ E a s i c , Character Unit 

Characters are normally stored and manipu- 
lated in the System/360 Mcdel 20 central 
processor in basic units called bytes. A 
byte consists of eight bits (binary 
digits) . 

While a decimal digit can assume ten 
different values (0-9) , a binary digit can 
only take en two alternate states: and 
1. Accordingly, eight bits provide for a 
maximum cf 256 (i.e., 2 8 ) unique entities, 
which is the number cf different characters 
that System/360 can recognize and handle. 

This set of 256 unigue characters repre- 
sentable by a single byte is termed the 
Extended Einary-Coded-Decimal interchange 
Code (EBCDIC) . 

Hexadecimal Notation 

A byte may be thought of as being subdi- 
vided into two half-bytes: an upper and a 
lower half-byte. Each half-byte consists 
of four bits. Four bits permit 2* permuta- 
tions, so that a half-byte can represent 16 
different characters. 

This offers several benef its--amcng 
them: 



In the decimal notation, carry-over tc the 
next position occurs at each multiple of 
ten; in hexadecimal notation, it occurs at 
each multiple of sixteen. The difference 
is illustrated below: 

Hexadecimal 



Decimal 
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20 



FF 






A half-byte is adequate for the storage 
of a digit (0-9) — see Data Fcrmats, 
below; and 



This shews how twe hexadecimal charac- 
ters can represent the decimal range from 
to 255. 
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Figure D1. Hexadecimal Codes, Bit Structure, Card Codes, and Assigned Standard Graphics 



The EBCDIC Table 

Figure D1 presents the 256 unique EBCDIC 
characters. It is organized as a matrix, 
with the column labels pertaining to the 
upper half-bytes, and the row labels apply- 
ing to the lower half-bytes. 

Along the top and down the right side 
appear the sets of four bits that represent 
each half-byte internally in the system. 
The equivalent single-character hexadecimal 
codes are shown along the bottom and down 
the left side. 

The rectangle at the intersection of 
each column and row indicates 

(a) Above the diagonal line within the 

rectangle: The card punch-combination 
that corresponds to the particular 
EBCDIC character. (T = 12-punch, E = 
11-punch, Z = 0- punch.) 



The transformation between card 
punches and internal binary representa- 
tion is performed automatically by the 
central processor of the system. 

(b) Below the diagonal line: The graphic 
that is normally associated with that 
EBCDIC character. 

To date, only the more common gra- 
phics have been assigned as standard 
for specific EBCDIC characters. 



COLLATING SEQUENCES 

Refer to the EBCDIC table (Figure D1) in 
connection with the discussion below. 

Standard Collati ng_Seauence 

The system assumes the standard ascending 
collating sequence to run from hexadecimal 
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code 00 to FF (and the converse for 
descending sequence) . The sequence extends 
through all rows of a tatle column befcre 
proceeding to the top of the next column, 
thus: 

column 0, row 0; column 0, row 1; 02, 
03, ...; cclumn 0, row F; 

column 1, row 0; column 1, row 1; 12, 
. . ., 1F, 20, . .. , FD, FE, FF. 

Hence, for example, in ascending 
seguence: 

1. The period symbol (.) precedes (i.e., 
is lower in sequence than) the exclama- 
tion mark (!) 

2. The exclamation mark (!) is lower in 
seguence than the 11-punch (-) . 

3. Punch combination EZ987 precedes digit 
0. 

4. All special-character graphics, in 
standard assignments, precede the 
alphabet. 

5. The alphabet precedes (i.e., is lower 
in seguence than) the decimal digits. 

(If descending sequence is specified, the 
converse applies.) 

J 

Thus, the standard ascending collating 
seguence for the mcst ccmmcnly used charac- 
ters is: 

blank, 6, -, /, A-Z, 0-9. 

(The converse applies to descending 
seguence .) 



Altergd Collating Se guence 

EPG permits the user to substitute any 
desired collating seguence for the IEM 
System/360 standard collating sequence (see 
abcve) . Among likely reasons for such a 
substitution could be the use of ASCII 
(American Standard Code for Information 
Interchange) . 

Operations to Which Applicable 

When a user-specified sequence has been 
substituted, it applies during object- 
program execution to the collating seguence 
in: 

1. Alphameric CCMP (Compare) operations; 
and 

2. Matching Fields operations (matching 
and sequence checking) . 



Note : When numeric Matching Fields are 
specified, characters in hexadecimal column 
F should not be converted to characters in 
hexadecimal columns 0-E. 

When an altered collating sequence has 
been provided to the program, it applies 
uniformly to all of the above operations — 
it cannot be confined to an individual 
specification. 

Collating sequence cannot be altered 
for: 

1. CCMP operations on fields defined as 
numeric; 

2. Table LCKUP operations; or 

3. Control Level data. 

The standard collating sequence is 
always applicable to these operations. 

Steps in Altering Collating Seguence 



1. 



Punch the letter A into col. 17 of EPG 
processor-deck card JC10001. (EPG 
processor-deck cards contain J in col. 
73, and are numbered in cols. 74-79.) 



Alternatively, duplicate processor 
card J010001, and punch A into col. 17 
of one of the two copies. Ee-insert 
the altered card in the processor deck, 
saving the other one for jobs with 
standard collating seguence. 



2. Punch a translation table into a series 
of four cards, as described below. 

3. Insert the four translation-table cards 
and the modified processor-deck card 
(J010001) into the complete EPG input 
deck each time an object program that 
utilizes the altered collating seguence 
is to be generated by EPG. 

(The correct insertion of those 
cards is described in the SEL publica- 
tion IBM System/360 Mod el 20, Beport 
Program Generator for Pu nch-Card Eguip - 
ment , Operating Pr ocedu res . Form 
C26-3800.) 

Format cf Translation-Table Cards 

Columns Entries 

1 - 5 Card seguence number 

Any numeric characters may be 
used, so lcng as the seguence is 
ascending for the four cards 
(described below) . (The same 
format as for BPG specifications 
cards — i.e., page number and card 
number — is suggested.) 
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6 Card identification 
S = mandatory entry 
7-70 Translation table 

See explanation below. 
71-80 UnusM 

May be used for any desired iden- 
tification. RPG ignores entries 
in these columns. 

Translation Table 

The collating seguence is punched into a 
set of four cards. If any deviation from 
the standard collating sequence is desired, 
all four cards must be prepared, even 
though the change might be confined to only 
one guadrant of the EBCDIC table . 

Each of the four cards provides for 
assigning positions in the collating 
seguence to the 64 punch combinations in 
one of the four guadrants (blocks of 64 
punch combinations) in the EBCDIC table 
(Figure D1) . 

The first card assigns seguence posi- 
tions to the punch combinations in the 
first guadrant — table columns labeled with 
hexadecimal codes 0, 1, 2, 3. For example: 

Table Column 0, Row corresponds to 

card column 7. 
Table Column 0, Row 1 corresponds to 

card column 8. 
Table Column 1, Row corresponds to 

card column 23. 
Table Column 3, Row F corresponds to 

card column 70. 

The second card assigns seguence posi- 
tions to the punch combinations in the 
second guadrant — table columns labeled 4, 
5, 6, 7. 

The third card for the third guadrant — 
table columns labeled 8, 9, A, B. 

The fourth card for the fourth 
guadrant — table columns labeled C, D, E, 
F. 

For characters that are to retain their 
standard position in the collating 
seguence, punch the character as it appears 
in the EBCDIC table, into the card and 
column that corresponds to that position in 
the table. 

The procedure for assigning a particular 
character (say, alpha) to a non-standard 
position in the seguence is: 

1. Determine the card and column occupied 
by that character (alpha) in the stan- 
dard collating seguence. 

2. Determine the character (say, beta) 
that occupies the position in the stan- 



3. 



dard seguence to which character alpha 
is to be transposed. 

Punch character beta into the standard 
column for character alpha. 



o 



It is permissible to assign a character 
to a new position in the collating 
seguence, and also retain the character 
normally in that position in its standard 
position in the seguence, by also punching 
it in its standard column. The two charac- 
ters are then treated as egual in Matching 
Fields and alphameric COMP operations. 

Representative examples are presented 
further below. 

The following rules apply to the assign- 
ment of a non-standard collating seguence: 

1. All four cards must be used. 

2. Only those of the columns 7-70 in each 
card need be punched whose correspond- 
ing punch combinations in the standard 
collating seguence — as shown in the 
EBCDIC table — occur in the input data. 

3. If a character-column is left blank, 
but the punch combination corresponding 
to that column in the standard collat- 
ing seguence does occur in the input 
data, that punch combination is con- 
verted to the seguence position of 
"blank" (hexadecimal 40) . 

Examples of Translation 

1. A character is to retain its standard 
collating-seguence position. 

To retain E83 ($) in its standard 
collating seguence position: 

Punch 11-8-3 ($) into column 34 of 
the second card — the column that corre- 
sponds to the standard-seguence posi- 
tion of the $ symbol. 

(Note that translation cards are 
reguired at all only if there is any 
deviation from the standard collating 
seguence somewhere in the EBCDIC 
character set.) 

2. A character is to be transferred to a 
non-standard collating-seguence 
position. 

To transfer E83 ($) to the seguence 
position immediately after digit 9: 

Punch 12-11-0-9-8-2 — the stan- 
dard punch combination following 
digit 9 — into column 34 of the 
second card — the column that corre- 
sponds to the standard-seguence 
position of the $ symbol. 



o 
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If nothing is punched in column 
65 of the fourth card--the standard 
position for 12-11-0-9-8-2 — the 
punch combination 12-11-0-9-8-2/ if 
it occurs, is converted to the 
sequence position of "fclank". 

Several characters are to be trans- 
ferred to the same ncn-standard 
collatinq-seguence position. 
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The sequence positions of two charac- 
ters are to be interchanged. 
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the letter A — into column 8 of the 
fourth card--the column that corre- 
sponds to the standard-sequence 
position of the letter A. 
Also punch 1 into column 56 of the 
fourth card--its standard-sequence 
position. 



DATA FORMATS 

Alphameric Fields 

Data for fields defined as alphameric is 
stored in the IBM 2020 central processing 
unit with one character per byte (see Code 
Structu re # above) . 

The byte bas the bit structure shown in the 
EBCDIC table (Figure D1). For example: 

1. The letter A occupies one byte composed 
of the bits 1100 0001 — equivalent to 
hexadecimal code C1 and card punch- 
ccmbination 12-1. 

The C may be considered the zone 
portion of the character. 

2. The asterisk (*) occupies one byte com- 
posed of the bits 0101 1100 — equivalent 
to hexadecimal code 5C and card punch- 
combination 11-4-8. 

3. The numeral 4 occupies one byte com- 
posed of the bits 1111 100 — equivalent 
to hexadecimal code F4 and card punch 
cede 4 . 

The F can be considered the zone 
portion of the character. An F zone is 
tantamount to no zene for a digit (0-9) 
in an alphameric field — the absence of 
a zone punch over a diqit at input 
causes an F zone to be assigned; at 
output, an F dees not cause a zone to 
be punched over a digit (0-9) . 



o 



A character in its standard positicn is 
to be combined with another character. 
The example chosen will illustrate how 
signed positive values (12-overpunched) 
can be combined with unsigned positive 
values, without sacrificing the identi- 
ty of negative values (1 1-overpunched) . 
(The example assumes that the field is 
defined as alphameric, and therefore 
not used in arithmetic or edit 
operations.) 

Tc combine the letter A (12-1 with 
the digit 1 , in the position occupied 
by the digit 1 in the standard collat- 
ing seguence: 
a. Punch 1 — the character fcr the 

seguence positicn to be assumed by 



Numeric Fields 
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The method of storing two digits in one 
byte is termed packed-decimal format, and 
is illustrated below. 
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Packed-Decimal Format 

All fields defined as numeric are stored by 
RPG in packed-decimal format. Normally, 
the conversion to packed format is per- 
formed by EPG after the data has been read 
in; but, if "Packed" is specified in the 
input specifications for the field, the 
packing routine is bypassed, the data then 
being assumed already to be in packed for- 
mat. Core storage in packed format can be 
portrayed as follows: 



The maximum size for a numeric field is 
bytes <i.e., 15 digits and sign). 



Digit positions (i.e., all but the low- 
order half-byte) must not contain bits 1010 
through 1111 (i.e., hexadecimal A-F) if the 
field is to be used in arithmetic, COMP 
(compare), cr edit (including Zero- 
Suppress) operations. These operations are 
based on decimal arithmetic; therefore, the 
digit values must lie within the decimal 
range (0-9) . 



If the number of digit positions in the field is odd — 

4 bits 4 bits 4 bits 4 bits 4 bits 4 bits 



digit digit digit digit I digit sign 



byte 



byte 
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If the number of digit positions in the field is even — 

4 bits 4 bits 4 bits 4 bits 4 bits 4 bits 
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Data Input and/or Cutput in Packed Format 

Reasons and the proper specifications for 
reading numeric data into or out of the 
System in packed form were given under 
I n p u t ... S pe c i fie a t i p n s (Packed--col. 4 3) and 
under Cutput- For mat Specifications (Packed 
Field — col. 44) , together with formulas for 
eguating field lengths in packed and 
unpacked formats. 

Figure D2 gives seme examples of num- 
bers, the format in which they are stored 
in the processor, and the corresponding 
card punch-combinations if packed format is 
specified for input from or output to 
cards. Reference to Figure D1 (EBCDIC 
table) will clarify the examples. 
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Figure D2. Examples of Packed-Decimal Data in Core and Cards 
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APPENEIX E. PROGRAMMING TIPS 



TIPS FOR MINIMIZING CORE-STORAGE 
REQUIREMENTS 

These are generalized suggestions: not 
every one necessarily holds true under all 
combinations of conditions, nor are they 
always practicable because of ether factors 
involved. (Refer also to S to rage Require- 
ments, Appendix A.) 



1. 
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(b) 
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several card 
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If the majcr 
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ber of de 
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ained; i. 
Id in sev 
e CSTEXT 
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nent input fields in 
types are in the same 
the format (e.g.., 
cr numeric and number 
laces) corresponds 
types, define all such 

type, 
ity of the input fields 
1, use OR lines and 

Relation entries rath- 
letely separate file 
ens. 

field name for dif- 
fields in different 
hen field size and for- 
ric, cr numeric and 
cimal places) are 
f the data need not be 
cm one card type tc the 

field name repeatedly 
ens as result field for 
erent items whenever 
eed nc longer be 
e., employ one work 
eral calculations, 
in Figure 68 — Parts II 



^^^0F 



(a) Use the minimum number of Record- 
Identification Cedes to identify a 
card type. 

(b) Use.C for record-identification 
code in preference tc D cr Z. 

When there are several card types per 
input (or combined) file, two control 
levels (say, L1 and 12) usually take 
less core than one split level. 

Employing Matching-Fields specifica- 
tions sclely for purposes of sequence- 
checking a single file en cne or two 
fields requires more cere than seguence 
checking by comparing (CCMP) in the 
calculation specif icatiens. For alpha- 
meric fields, this is still true for 
three fields. (Figure 68--Part I illu- 
strates COMP fcr sequence-checking. 
Note that the compare data from one 
card is saved for the next card.) 



and 
(b) 



Sequence-checking by COMP operation 
also permits detection of duplicates 
(shown in Figure 68 — Part I) , which is 
not part of the Matching-Fields 
sequence-check function. 

Note: Sequence-checking a single file by 
CCMP operation, rather than by Matching- 
Fields entries, also tends to improve 
throughput: a Matching-Fields specifica- 
tion delays the reading of the next card. 

6. Try to keep the source columns for each 
Ccntrcl-Level or Matching-Fields input 
field uniform in all card types. 

7. Use Field Indicators in input specifi- 
cations in preference tc COMP operation 
in calculations. 

8. (a) Where feasible, group together cal- 

culation specifications conditioned 
by the same indicators (cols. 
7-17). (In this context, "same" 
also implies identical status cri- 
terion for an indicator: either on 
or Not on in all lines.) 

When successive specifications 
lines are conditioned by the same 
indicators, specify the indicators 
in the same order (cols. 9-11, 
12-14, 15-17). 

When the same indicator is assigned as 
Resulting Indicator (cols. 54-59) in a 
specifications line, and as condition- 
ing indicator (cols. 7-17) in that and 
the next line, there is no core saving 
if the two lines contain identical con- 
ditioning indicators. 

9. (a) Try to define the number of decimal 

places to be uniform for all 
numeric fields or literals used in 
one arithmetic or compare 
operation. 

(b) For ADD/SUB operations, also try to 
have fields cr literals of egual 
length. 

(c) For comparing (CCMP) alphameric 
fields, try to have fields or 
literals of equal length. 

10. When a number of fields are to be 
edited for output, define as many of 
them as possible with the same length, 
and edit them uniformly. This reguires 
storage cf only a single edit word. 

11. (a) In ADD and SUB operations, signifi- 

cant core space is saved when the 
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Result Field and Factor 1 and/or 
Factor 2 are the same, provided the 
ether Factor is of equal or shorter 
length and all three have the same 
number of decimal places. 

(b) In Z-ADD and Z-SUB, significant 
cere space is saved if the twe 
fields have the same number cf 
decimal places. 

(c) In MULT, DIV, and MVR, core space 
is saved if no decimal alignment is 
reguired. 



12. To clear a numeric field tc zero, use 
SUB, with field name in Factor 1 = Fac- 
tor 2 = Result Field. 



TIPS CN SPECIAL PROGRAMMING REQUIREMENTS 



13. To turn indicators on 
Resulting Indicators) 
specifications, based 
numeric-field contents 
or zero, add a literal 
comparing with a zero. 
Fcr the core saving 

(a) The Result Field m 
as one of the twd 

(b) The literal zero m 
with the same numb 
places as in the o 
(e.g., 0.00 or .00 



or off (as 
in calculation 
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zero rather than 
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Factors; and 
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er of decimal 
ther Factor 



14. Specify one SETON (or SETOF) with two 
cr three indicators in preference to 
separate SETON (or SETOF) for each 
indicator. 
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in the 
ed here. 



An attempt has been made to group the 
pointers by the type of specifications with 
which the problem is most closely 
associated. 



Input-Oriented Po inters 

Group Indication on "Run-In" 

Pro ble m: At the beginning of the deck, a 
Control-Level L-indicator does not turn on 
until detail-calculation time for the first 
card of a type for which Control Level is 
specified and which is n ot, zero (if alpha- 
meric field) , or no t blank or zero (if 
numeric field) i n t he control fiel d. 

Figure E1 illustrates a method for 
assuring group indication at the beginning 
of each group, even when the control field 
in the first such card is blank or zero. 
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r. (See illustra- 
8 — Parts I, II, and 

series of calcula- 
s, applicable under 
stances at dif- 

the calculation 
-rather than 
cal, or near- 
fications. (See 
straticn below — 



16. Punch constant data (such as date, for 
example) into the input card in edited 
format — rather than using an edit word 
in output specif icatiens. 

17. When testing for specific numeric codes 
in a field, define the field as alpha- 
meric and compare (CCMP) to alphameric 
literals . 



Ass umption : Control Level 1 was assigned 
in the input specifications (cols. 59-60) 
to the pertinent card type and field. 



Explanation : The L1 indie 
on, by a SETON operation, 
time calculations during t 
cycle. This assures that 
group indication during de 
for the first card. The p 
turns off 11 after each de 
Thereafter, normal Control 
turns on L 1 at the end of 
group. 



ator is turned 
in the detail- 
he first program 
11 is on for 
tail-time output 
rogram itself 
tail-time output, 
Level operation 
each control 



The SETCN instruction also turns on 
another indicator (say, 90) . By condition- 
ing execution of the SETON specification by 
N90 (cols. 9-11), L1 is never again turned 
on by the SETON instructicn — only at the 
beginning cf program execution, when indi- 
cator 90 is off. 

If desired, additional L-indicators 
(say, L2) could also be SETON for the first 
card. Remember, however, that SETON of L2 
does not automatically set on L1 — both must 
then be specified. 



1 jJ 
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Checking That Output-Card fields are Blank 
Before Output 

Problem: The user sometimes desires 
assurance that the card fields into which 
output will be punched are blank; i.e., 
were not inadvertently punched in a prior 
operation. 

Solution : 

1. Define the file as a combined file. 

2. Define the file in the input as well as 
the cutput specifications. 

3. Define the area to be output-punched as 
a single continuous alphameric input 
field (if practical--otherwise, as sev- 
eral fields) . 

4. Assign an indicator (01-99) to Field 
Indicators, Blank (cols. 69-70) . In 
the detail'-calculaticn specifications, 
SETCN H1 or H2 if the indicator 
assigned to Blank is net on. The sys- 



tem will halt when the card has been 
processed; punching can be suppressed 
by Output Indicator NH1 (or NH2) . 

Note : 

1. The approach assumes a read-punch I/O 
device. 

2. If the area is troken into several 
fields, do not assign the same indica- 
tor to more than one field — otherwise 
it can be turned on again by a later- 
specified field even if turned off by 
an earlier one. 

3. Punching is assumed to be at detail 
time, because Field Indicator status is 
not available until detail time. 

Control Levels Initiated by Card Type 

Probl e m A : A Control level (say, L1) is 
specified in the normal manner in the input 
specifications. In addition, a higher 
level (say 12) is to be initiated preced ing 
the processing of a card of a certain type. 
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Figure E1. Group-Indicaticn, Even When Control Field is Zero in First Card of Deck 
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Figure E2. Control levels Initiated by Card Type—Regular Control Level Also Specified 



Assumption: A separate card-type Resulting 
Indicator (say, 80) has teen assigned to 
the card type which is tc initiate the 
higher-level ccntrcl break. 

Fiqure E2 (Parts I and II) shows two of 
several possible programing methods. Part 

I assumes that the 11 control field also 
exists in the special L2-level card. Part 

II assumes that the special L2-level card 
contains no ether control field, and it is 
necessary to prevent the occurrence cf a 
spurious 11 break after it — when the 11 
field of the next regular card is compared 
with that in the last preceding regular 
card . 



Explanation — Part I: The first total-time 
instruction turns on 1,2. L1 must also be 
SET0N, because lower levels do not automat- 
ically turn on when a higher one is turned 
on by SETCN. All L-indicators are turned 
off by the program itself after the next 
card has been read, and before its control 
fields are compared. 



The specifications must be at total time 
(LO in cols. 7-8, because another L- 
indicator is not necessarily en) , and must 
be the first ones at that time so that 
others are properly conditioned by the sta- 
tus, of L 1 and L2. 
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Note: Unless there is a special reason for 
wishing tc utilize L2, the same results can 
be accomplished fcy simply conditioning the 
operations concerned by indicator 80 
itself — remember that totals, toe, can be 
conditioned by any indicator, and are not 
dependent on a Ccntrol-Level indicator. 

Explanation—Par t II : As Part I; but, in 
addition, indicator 81 is turned on when- 
ever L2 is turned on. 8 1 is used tc turn 
eff L1 next cycle, when it may have been 
spuriously turned en by the regular next 
card following the special card; at the 
same time 81 is turned off, so that 11 
turned en by subsequent (legitimate) con- 
trol breaks is not artificially turned off. 

Problem, E: A Control Level (say, L1) is to 
be initiated follo wing the processing cf a 
card of a particular type (say, identified 
by card-type Resulting Indicator 8C) . 

Figure E2 — Part III shews one cf several 
solutions. 
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Note : If the purpose is merely to 
calculate or output totals following a card 
of a particular type — not tc utilize data 
frcm, or punch into, the next card in some 
selective manner — none of the special 
calculation specifications shown in Part 
III are necessary. 

The indicator (80) of the card that is 
to be followed by the special operations is 
en throughout its processing. Tctals can 
be calculated or output at detail time as 



well as at total time. The simplest 
solution then is to specify all such 
calculations and/or output as the last 
detail- time calculations and output, 
respectively — conditioned by indicator 80. 
Detail-time operations on the data in the 
type-80 card have then been completed 
before the operations that are to follow a 
card-type 80. (See also Figure E5 for 
another approach.) 

Pro ble m C: No Control Level is specified 
in cols. 59-60 of the input 
specifications; but Control Level L 1 is to 
turn en precedin g the processing of a card 
of a certain type. 

Solution (cne cf several) : Assign 
Resulting Indicator L1 in cols. 19-20 in 
the card-type identification specifications 
for the pertinent card type. 

Control On A Signed Field--No Break Between 
Unsigned and Plus-Signed Cards 
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It is, however, possible that positive 
values in some cards are signed 
(12-overpunch) , and others are not. This 
situation may arise, for instance, if some 
cards were created as unedited output in a 
previous Model 20 operation, while others 
were keypunched. 

Figure E3 shows how it is possible to 
control on such a field, distinguishing 
between positive and negative values — yet 
not breaking control between identical 
positive values, seme of which are 
12-overpunched in the sign position while 
others are not. 
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Figure E3. Control on a Signed Field, No-Zone and 12- Zone Combined 
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The field (cols. 5-10) is defined as 
numeric, and a Control-Level indicator (L1; 
is assigned in the normal manner (cols. 
59-60 of the input specifications) . This 
provides normal control on the absolute 
numeric value in the field, ignoring sign: 
if the absolute value differs in two 
successive cards, L1 turns on before 
total-calculation time. 



The calculation specifications shown are 
irrelevant when L1 has already been turned 
on by a change in absolute value; but they 
do not interfere, because they do not cause 
L1 to turn off. However, if L1 is not 
on — i.e., the absolute value did not change 
from the previous card— they cause L1 to 
turn on if the sign of the value changed: 
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not remain on following a card with a 
positive value. 

In order to condition other total- time 
operations properly based on the status of 
L1 , these specifications must be the first 
ones at total time. Since, by definition 
of the problem, these specifications are 
significant only when L1 is not already on, 
LO is required in cols . 7-8 to define them 
as pertaining to total time. 

Note that Field Indicators or Compare on 
the field contents — instead of OR lines and 
card-type Resulting Indicators — could not 
be used, because that information from the 
new card is not available at total time 
(see Figure 6, RPG Program Logic) . 

Note: See also Altered_Collating_ Sequence , 
Appendix D, for combining C-zone and F-zone 
characters for Matching Fields operations 
on alphameric field. 

Indexing — Analyzing and Forming Fields 
Posit ion- by-Position 

Problem; A card type contains a variable 
number of fields of variable length, and 
these fields are to be printed separately. 

A common application involves 
name-and- address cards in which the user 
has not assigned a field of fixed length to 
each portion (name, street address, 
city-state) , and the number of fields (data 
print lines) is allowed to vary (usually 
from two to four) . 

Figure E4 (Parts I and II) shows RPG 
calculation specifications that offer one 
solution (in conjunction with appropriate 
input and output specifications) . Part II 
of Figure E4 suggests a method of 
eliminating unnecessary print cycles when 
the card contains less than four fields. 

Assumptions: 

1. Each name-and-address card contains one 
to four name-and-address fields. 

2. Each field allows for 1-18 positions of 
data. 

3. The last data character in each 
utilized field is followed by a special 
symbol ($ was arbitrarily chosen) . 

4. The last field used is followed by two 
$ symbols. 

5. The group of fields is defined in the 
input specifications as a single 

77- position alphameric field, named 



SO0RCE (4 x 18 = 72 +5 possible $ 
symbols = 77) . 



Solution: Figure E4 — Part I — should be 
studied line by line, and the operation 
simulated on a piece of paper. Easically, 
a source field is shifted left one position 
at a time, repeatedly (lines 19 and 06), 
until it is exhausted (indicator 80 on) . 
Each time, the leftmost position is 
examined to see whether the $ symbol, 
terminating a field, has been reached (line 
10). A test is also made for two $ symbols 
in succession, signalling the end of data 
(lines 07, 08, 10, and 11). The characters 
(line 08) up to a dollar symbol are 
assembled, one at a time, in the field 
RESDLT (lines 14, 16, and 17) . 

The shifting is accomplished by moving 
between a work field (W0RK1) and the SOURCE 
field (lines 12 and 13) , and between WORK2 
and RESULT (lines 16 and 17) . The work 
fields differ in length by one position 
from the corresponding SOURCE and RESULT 
fields which, in conjunction with 
appropriate use of MOVE and MOVEL 
operations, accomplishes the desired end. 
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Because no mo 
permitted, H1 (1 
halt the system) 
value exceeds 3. 
criterion, becau 
not increment un 
been processed — 
successive $ sym 
end of an earlie 
four fields appe 
in line 11 preve 



re than four fields are 
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, if the field-counter 

(3 — not 4 — is the 
se we start with 0, and do 
til the first field has 
see line 30.) When the two 
bols are encountered at the 
r field (i.e., less than 
ar in the card) , the entry 
nts further processing. 






The field RESULT must be blanked (line 
29) after the processing of each field of a 
card: because only eight blanks can be 
moved as a literal, an 18-position blank 
alphameric field (BLNK) is set up for the 
purpose (line 33) . (See explanation below: 
Clearing an Alph a meric Fi eld . ) 

Unnecessary print cycles can be 
prevented, as shown in Part III, when there 
are less than four fields, because the 
indicator-setting operations in lines 21, 
23, 25, and 27 were so designed that the 
indicator (85, 86, 87, or 88) on at output 
time represents the number of fields in the 
card, the other three indicators being off. 
Forms advance after the last 
name-and-address line should then be 
specified as Skip/Before in the first 
output line that follows, because of 
variable execution of preceding lines. (If 
unnecessary print cycles are suppressed, as 
shown in Part III, Blank-After need not be 



specified and the conditioning indicators 
in cols. 10-11 of lines 22, 24, 26, and 28 
are not required.) 

Note: The technique can also be adapted to 
translating certain characters in a field 
to others. 

Calculations-Oriented Pointer s 

Clearing an Alphameric Field 

Proble m: It may be necessary to clear 
(i.e., blank) an alphameric field by a 
method other than a Blank-After instruction 
in the output specifications. 

Solution I — field no larger than eight 
positions: Specify an alphameric literal 
of "blank" in Factor 2, and MOVE this 
literal to the pertinent field (specified 
as Result Field) . 

Solu tion II --field larger than eight 
positions: With the RLA3L 
pseudo-operation, define a new alphameric 
field of the desired length; the field will 
be blank. MOVE this field to the relevant 
field to be blanked (specified as Result 
Field in the HOVE operation) . 

Figure E4 — Part I illustrates the 
method — see lines 33 and 29. (Note that 
RLABL field names must not exceed four 
characters.) 
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Figure E5. Total-Time Calculations Based on Type of Last Preceding Card 



Card-Type Resulting Indicator During 
Total-Time Calculations 



During detail-time calculations, the status 
of card-type Resulting Indicators reflects 
the card type being processed. During 
total time, the indicator for the next 
card--whose data is not yet available to 
RPG — is on, and that representing the just 
processed card is off (unless both cards 
are of the same type) ; thus, total-time 
calculations can very easily be based on 
the type of card that follows (LO can be 
specified in cols. 7-8 if none of the 
indicators L1-L9 are desired as a 
condition) . 

Proble m: Calculations at total time are to 
be conditioned by the type of the last 
preceding card. 



Figure E5 shows a simple solution. We 
have assumed that the criterion card type 
was assigned indicator 10 in the input 
specifications. 



Explanation: An indicato 
SET0N at any point during 
calculations, when the pa 
(indicator 10) is being p 
indicator is then used at 
conjunction with any L-in 
L0-L9, as desired) . It m 
again, either by the end 
during detail time before 
the basis of indicator 10 
would remain on even when 
not precede total time, 
total time, LO must be in 
because other L indicator 
for every program cycle. 



r (say, 20) is 

detail-time 
rticular card type 
rocessed. That 

total time in 
dicator (Lx = 
ust be SET0F 
of total time, or 

it is SETON on 
— otherwise it 

card type 10 did 
If SET0F during 

cols. 7-8, 
s may not be on 
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Figure E6. AND and CR lines in Calculation Specifications 



AND and CR Lines in Calculation 
Specifications 

Figure E6 — Part I presents a technique for 
conditioning a calculation by mote than 
three indicators in an AND relationship. 
Part TI of Figure E6 shows three 
alternatives for establishing CE 
relationships. 

Explanations^ The illustrations are 
largely self-explanatory. It is important 
to remember that (with certain exceptions, 
like L-indicators) indicators that are 
SET0N remain on unless turned off by SET0F 
or as Resulting or Field Indicator. 

Part I: When three indicator conditions 
are satisfied, a fourth is SETCN. This is 
then used in conjunction with further 
indicators to condition execution of ether 



specifications. Each additional "AND" 
line, using this approach, permits adding 
two more indicators to the AND 
relationship. 



Part 11(a) : The same spcif ications are 
executed when the indicator conditions in 
either line are satisfied. 



Part 11(b): The same indicator (90) is 
SETCN when the indicator conditions in 
either line are satisfied. Execution of 
the calculation operations is then based on 
the status of that indicator (90) . 



Part II (c) : The program branches to the 
same routine when the indicator conditions 
in either line are satisfied. 
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Figure E7. Distinguishing 12-, 11-, 0-, No-Zone, and * in Input Fields 



Distinguishing Zone Punches in Input Fields 



Problem: Alphab 
structured sc th 
unit-reccrd zone 
J-R, = S-Z) re 
provides for con 
12- and 11-punch 
sole position of 
does not disting 
remaining (net 1 
(i.e., it lumps 
than 50, C, 60, 



etic codes are sometimes 
at the so-called 

punches (12 = A-I, 11 = 
present groups. TESTZ 
venient determination of 
es in the high-order or 

alphameric fields; but it 
uish between and the 
2- or 11-) zene punches 
all hexadecimal codes ether 
or D as "no zone") . 



Figure E7 shows hew to test a 
single-pcsition alphameric input field 
(named CCDE) for 12-zone, 11-zone, 0-zcne, 
no zone punch (digits 0-9) , or blank. We 



have made the assumption that the code 
consists only of A-Z, 0-9, and blank. The 
COMP-operation technigue can, of course, be 
applied to identifying characters within 
any EECDIC range (for example, all of 
hexadecimal zone E) . 



Explan atio n : Indicator 12 will be on for 
A-I (or any character with hexadecimal 50 
or zone C) ; indicator 11 is on for J-R (or 
any character with hexadecimal 60 or zone 
D) ; indicator 10 is on for letters S-Z; and 
indicator 99 is on when the column is 
blank. No zone (i.e., digits 0-9) is 
represented by 90 N10 N99 . 
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Figure E8. Absolute Compare, Sign Reversal, and Siqn Removal 
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Absolute Numeric Compare — Including 
Illustration of Sign Reversal and Sign 
Removal 

Problem^ A Compare (COME) operation fcr 
numeric fields is always algebraic; i.e., 
the sign in the low-crder position of the 
field is taken into consideration. Fcr 
example: -8 is smaller than (+) 1. 

Figure E8 — Part I presents a method for 
comparing the absolute value (ignoring the 
sign) in a field to a constant, without 
changing the sign in the original field 
itself. Two of several alternate 
techniques are shown in Parts II and 
Ill—this time on the assumption that the 
sign in the field need net be preserved. 

Assumptions^. FIELD 1, FIELD2, and FIELE3 
represent numeric data fields; CCMFLD is a 
new field created so as net to disturb the 
sign in a data field. 

Explanaticnsj: part I: As the data field 
(FIELD1) is transferred to a work field 
(COMFLD) , it is tested fcr sign. If 
negative, the sign is reversed, so that 
comparison is always with a positive value, 

The second line, incidentally, 
illustrates the simplest method for 
reversing the sign in a field. 

Part II: The zone of the digit 5 

(hexadecimal zone F — see EECDIC 

table) — equivalent tc "no sign" — replaces 



any other zone in the low-order position of 
FIELD3. Any ether character in the 
EBCDIC-table column labelled F would do as 
well as a 5. 

This illustrates a simple technique for 
removing a sign. (See also Fiqure E19 for 
removal of only a plus sign.) 

Part III: The first line is assumed to 
represent any normal arithmetic operation. 
Advantage is taken of an operation that has 
to be performed anyway to ascertain the 
sign in the pertinent field. If negative, 
the sign is reversed by the Z-SUB 
operation. 

The examples in Parts II and III sacrifice 
the original sign in the field. 

In all three examples, the literal could 
have teen specified simply as 1250 instead 
of a 1250.00. However, the format employed 
minimizes the core reguirements for the 
operation by obviating decimal alignment 
(see Storage Requirements, Appendix A and 

Tips cn t Minimizing Core-Storage 

Requirements, in this appendix) . 



Arithmetic Overflow 

Problem : During object-program execution, 
no indication is given when an arithmetic 
result exceeds the capacity of the Result 
Field: the excess high-order positions are 
lost. 
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Figure E9. Testing for Arithmetic Overflow 



Figure E9 illustrates a method for 
recognizing such cases, when the 
Result-Field length is less than 15 
positions. 

Explanation: A work field (AOWORK = arith- 
metic overflow work field) is set up, long 
enough to accommodate the la'rgest result 
that could occur in any arithmetic opera- 
tion that is to be checked for overflow and 
larger than the fields ultimately destined 
to receive the results of the pertinent 
operations. The same work field can be 
used each time, provided the number of 
decimal places required is uniform. Two 
operations employing the same work field 
are shown in Figure E9 . (NH1 is a condi- 
tioning indicator in the second example; 
otherwise, a correct second result would 
turn off H1 even if the first result 
overflowed .) 

The result of the arithmetic operation 
is moved, right-aligned, to the ultimate 
Result Field (PRODCT or FINAL) , and then 
subtracted back into the work field. If 
the result of this operation is not zero, 
overflow has occurred. 

The work field must be large enough to 
contain a significant digit in the overflow 
portion (the excess length, to the left, 
beyond the ultimate result fields) , even 
when part of the overflow portion could 



contain zero — for example: initial result 
of operation = 10045678. If the ultimate 
result field contains (say) six positions, 
overflow will not be detected unless the 
work field (containing the initial result) 
allows for at least eight pcsitions-- 
because the result happens to be in the 
seventh position. 

Function Table Containing Several Functions 
per Field 

Problem^ In a table look-up operation, it 
is sometimes desired to locate more than 
one function per argument. 

Solution : Place the several functions for 
one argument next to each other so as to 
form one continuous field. In the file 
extension specifications and the LCKUP 
operation, treat the multiple function 
fields as a single field of a size that 
exactly accommodates the several functions. 
After the LCKUP operation, separate the 
individual functions by MOVE and MOVEL 
operations. 



Note: If the functions are numeric, all 
subfunctions for one function field should 
have the same siqn--which should only be 
punched in the table-input cards in the 
low-order position of the rightmost 
subf ield . 
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Figure E10. Multiple Functions from a Single LOKUP Operation 



\ tpJ / 



Figure E10 — Part I illustrates the 
specifications to handle three functions 
for cne argument, and Part II graphically 
portrays the Hove operations. 

Assumptions: 15-pcsition function field, 
defined appropriately (and, in this 
example, as alphameric) in the file- 
extension specifications. It consists of 
three functions—from left to right: 
FUNC#1 {H positions) , FUHC#2 (6 positions) , 
and EUNC#3 (5 positions) . 



Converting Units to Dozens 

Problem : Input guantities are expressed in 
units; but output is to be expressed in 
dozens, and units less than a dozen. 

Figure Ell shows two simple conversion 
routines. 

Assumptions: UNITS field has been defined 
elsewhere, as numeric with. Decimal 
Positions. 
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Figure E12. Sguare Boot 



Explanation — Option, I: As long as 12 can 
fce subtracted frcm UNITS without the con- 
tents of the field UNITS turning negative, 
1 is added tc DOZENS. The routine is 
repeated as long as the contents of UNITS 
is greater than zero after 12 has been sub- 
tracted. The last specifications line pro- 
vides for restoring the UNITS value to what 
it was before subtraction of 12 caused it 
to turn negative. 



Note: Indicator 92 (second and fourth 
lines) may te removed: this saves seme 
core-storage space, but causes the program 
to execute one extra circuit through the 
loop whenever UNITS happens to be an 
integral multiple of 12. 



E xp lanation—Option II : The numfcer cf 
units is divided by 12 and the result is 
stored in a new field named E0ZENS. Since 
there are no decimal positions in dividend, 
divisor, or guotient, the remainder also is 
an integer. The remainder is moved to 
UNITS by the MVR operation, which first 
sets UNITS tc zero; thus, excess positions 
beyond the two-digit size cf the remainder 
are zero, and no longer contain the origin- 
al UNITS value. (Alternatively, a new 
field can be assigned for the units less 
than a dozen, if it is desired to preserve 
the original total units.) 



Square Root 

Figure E12 presents one of several simple 
RPG routines for calculating a square root. 
The Newton- Raphs on successive-approximation 
formula is applied: 

Ys" = R i+1 = .5^ + Rij, where 

Ri = successive approximations of square 

root, and 
S - the square (radicand) of which the 

square root is to be extracted. 



A ss umptions: Radicand (SQUARE) < 14 posi- 
tions, with decimal places. As the 
example is designed, a 7-position sguare 
root is calculated; 8 positions are allowed 
for intermediate values (field SQR0OT) , but 
the high-order position will always be zero 
in the final result. 

The user may change the sizes of the 
SQUARE and SQR00T fields, and may introduce 
decimal places into the radicand — provided 
he maintains the proper mathematical and 
EPG relationships for sizes and decimal 
places in all the pertinent fields. 

Explanation of, Figu re .El 2,: Relating the 
calculation specifications to the formula 
should clarify the operation, with these 
additional comments — 



o 







286 System/360 Model 20 CPS Report Program Generator 






An extra position (decimal place) is 
assigned to the quotient (fourth line — 
WRKFID) for greater accuracy; it is 
then half-adjusted and dropped after 
the last calculation in the loop (the 
sixth line) . 



The routine is repeated until two suc- 
cessive half-adjusted results are 
identical (see seventh and eigth lines, 
and indicator 90) . Tc permit the com- 
parison of succesive results, the eld 
result is stored at CLEEOO (see third 
line) . 



An arbitrary initial value (3000000 — 
first line) has been used for the first 
approximation. Optimally, to minimize 
the number iterations, the initial 
value should be of the same order cf 
magnitude as the ultimate sguare root. 
If the magnitude of the radicands is 
fairly homogeneous, the user should 
substitute another, mere appropriate, 
first-approximation value. 



If sguare roots are to be extracted 
for values in a substantial number of 
cards, the following is a good techni- 
que for minimizing the number of itera- 
tions, if other aspects of the job do 
not preclude it: 



Output-Oriente d Po i nters 



Repetitive Output 



Problem^ it is sometimes desired to repeat 
the same output (forms printing or card 
punching) a fixed or variable number of 
times. One common application is the 
printing of shipping labels. 



Figure E13 presents a method for print- 
ing the same name and address a number of 
times from a single input card. 



As su mp. ti c n s : 

1 . The Name-and-Address cards include a 
field (NUMBER) which contains the num- 
ber of times the data is to be printed 



2. The data from each card is to be 

printed at least once, and not more 
than nine times. . (If more than nine 
times must be allowed for, simply 
increase the size of the fields NUMBER 
and CONTRL.) 



3. Input consists cf a single file com- 
posed solely of Name-and-Address cards. 
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4. No calculation specifications are 

reguired, except those that control the 
output iterations. 



Note: If the user* 
conform to the rest 
4, above, he must m 
tions in the assign 
tors. Caution will 
must bear in mind t 
the last output per 
the next card has b 
card-type Resulting 
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on) the program branches (from the third 
line) to total-time calculation. When the 
contents of CONTRL are no longer greater 
than zerc, the program follcws its normal 
seguence: detail time is followed by the 
reading of a new card, which is in turn 
followed by total-time calculation and 
output. 



It will be noted that indicator 90 
off when the data has been printed one 
less than desired. However, after det 
time has been completed, and the next 
read, total-time calculations and outp 
follow. The total-time output at that 
is based on the data from the previous 
card, because the new input data is no 
transferred to the process area until 
prior to detail time: thus, this outp 
cycle supplies the data for the last t 
for each card. No spurious output is 
created after the first card has been 
read — whose data is not yet available 
the first total-time output of that pr 
cycle--because total time is bypassed 
the beginning ef program execution; ho 
ever, when branching from detail time 
total time, total-time operations are 
executed. 



turns 
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In each pass through detail calcula- 
tions, 1 is subtracted (second line) frcm 
the controlling number. As long as the 
result is greater than zerc (indicator 90 



Note : During program generation, a cau- 
tionary message--"GCTO and TAG are not in 
the same calculation time" — will be 
printed. Since the branching from detail 
time to total time is intentional, the mes- 
sage should be ignored. 
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Figure E14. Page Totals 



Page Totals 

Problem: Sometimes it is desired to list 
values and — when the forms-overflow point 
(channel 12) is reached--to print a total 
of the listed values at the tottcm of the 
page before forms advance to the next page, 
althouqh a control break may not have 
occurred . 

Figure E14 presents two solutions: only 
the calculation specif icaticns differ 
between the two. Option T cumulates the 
individual values directly into the three 



total fields (page total, control group 
total, and final total) , whereas Option II 
employs total transfer from one total to 
the next higher. Option II uses more 
instructions and core-storage space, but 
minimizes the amount of calculation time. 

Assumptions for this example: 

1. The contents of an input field named 
VALUE are to be listed at detail time. 

2. Totals of VALUE are desired at the bot- 
tom of each page, at the end of each 
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Ccntrol-Level- 1 group, and at the end 
cf the report. 

3. Carriage tape channel 4 serves for the 
page-total lccation. 

4. When there is a control break, a page 
total is to be forced, followed by the 
Control-Level total. 

Explanations for Figur e £ 14- -calculation 
specifications: Option I shows straight- 
forward addition of the individual values 
to the three totals; Option II accomplishes 
the same by total transfer to progressively 
higher-level totals. Noteworthy in Cption 

1. The second line provides for 
transfer — at total time — of the page 
total (PGETOT) to the Ccntrol-Level 
total (CTRGRP) , provided the overflow 
point had been reached (OF on) during 
the preceding detail-time printing. 

2. The third line accomplishes the same as 
the second whenever a control break 
occurs at a point on the page ether 
than the overflow point. This is 
necessary so that the ccntrcl-grcup 
total includes the values from a page 
that is only partially filled (OF not 
en) when a control break occurs. 

Output-format specifications: The first 
two lines specify printing at detail time 
for each card, except that output is sup- 



pressed (N1P) before the first card has 
been read. 
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The sixth and seventh lines provide for 
the control-group total beneath the page 
total, and for clearing of the control- 
group field so that the next group's total 
can be accumulated. The form is advanced 
to the top of a new page after printing of 
a group total. 

The last two lines contain normal speci- 
fications for printing the grand total. 
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Figure E15. Delayed Forms Overflow 



Delayed Forms Overflow 

Problem: Forms overflow normally occurs 
after total-output time in the same program 
cycle in which the overflow point was 
reached. However, with small control 
groups, it may be desired always to com- 
plete the listing of cards of one group on 
the same page. 

Figure E15 presents two techniques for 
delaying forms overflow until a control 



break has occurred at or beyond a carriage- 
tape channel- 12 punch. Option I is based 
on a single channel- 12 punch. Option II is 
based on succesive punches in channel 12 
from the earliest desired overflow point 
through the last possible point — assuming 
that a group total might have been printed 
three lines above the first channel-12 
punch. 
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As su m^ t i en s : 

1. One cr more fields are listed at detail 
time . 



2. A grcup total is to be printed at total 
time at the end cf each control grcup — 
Control level L1 has been assigned to 
some control field in the input 
specifications. 

3. Forms overflew is desired only after a 
ccntrcl-group total (i.e., a group is 
not to be split between two pages) — 
and enly provided a punch in channel 12 
has been sensed. 

4. The (first) channel- 12 punch is high 
enough to allow space en the same page 
for printing the largest possible con- 
trol group (+ 4 lines, because of the 
specific Space/Before and Space/After 
instructions in this example) . 

5. For Cption II, channel 12 is punched 
for every line from the first overflow 
line (as explained in 4, above) through 
the last possible print line on the 
page. 

6. Channel-1 punch represents the tcp of a 
page. 
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The first two lines of the cutput-f ormat 
specifications take care of normal detail 
printing; lines 03-05 contrcl the output of 
the L1 grcup total (preceded by an extra 
space), and forms overflow, as follows: 

1. Line 03 causes printing at total time 
if channel 12 had not been passed dur- 
ing detail-time output — in the same 
(indicator OF) cr a previous (indicator 
99) program cycle. The form is 
advanced 3 spaces--but not tc a new 
page — after the total is printed. 



2. Line 04 causes printing at total time — 
followed by forms advance to the next 
page — if the overflow point had been 
passed during a previous program cycle 
(indicator 99) . 

3. Line 05 provides for printing at 
overflow-output time — followed by forms 
advance to the next page (forms control 
frcm the previous specifications line 
applies) — if the overflow point was 
passed during detail-time or total-time 
output of the same program cycle (indi- 
cator OF) . 

This takes care of the situation 
where OF turned on after listing of the 
last card of the group. 

It is also possible that OF turned 
on enly as a result of printing the 
group total on the basis of the speci- 
fications in line 03--the output is 
then performed twice: first at total- 
output time (per line 03) , and again at 
cverf lew-cutput time (per line 05) . In 
such case, the second output to the 
file must be performed, in order to get 
the forms advance to channel 1. How- 
ever, as the field SUMANY is trans- 
ferred to the output-storage area, it 
is reset tc zeros (B in col. 39) ; 
this turns on indicator 90 (see first 
line of calculation specifications) , 
and output from the field is suppressed 
(N90). (Note that this method assumes 
that the L1-level data total cannot be 
zero. If Zero Suppress, or an edit 
word that does not preserve .00 for an 
all-zero field, were used,, output for 
the field need not be suppressed since 
nothing would then be printed when the 
field contents are zero — see Option 
II.) 

Ex planations, for Option II: The calcula- 
tion specifications consist only of the 
normal entries for summing an amount field. 
The first two lines (lines 08 and 09) of 
the output-format specifications take care 
of normal detail printing. Lines 10 and 11 
control the output of the L1 group total 
(preceded by an extra space) , and forms 
overflew, as follows: 

1. Line 10 causes printing at total time 
if a channel-1 2 punch has not been pre- 
viously sensed. The form is advanced 3 
spaces — but not to a new page--after 
the total is printed. 

2. Line 11 provides fcr printing at over- 
flow output time — followed by forms 
advance to the next page — if a channel- 
12 punch was passed during output in 
the same program cycle. Since channel 
12 is repeatedly punched, the initial 
overflow point could have been passed 
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in a prior cycle when there was no con- 
trol hreak. 
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Overflow Forms Aavance Before Totals 



Probl em: Normally, totals are printea on 
the same page as the last aetail aata, even 
if the overflow point (channel- 12 punch) 
was passea auring aetail-time output of 
that program cycle. This is so because 
overflow time, or automatic forms aavance 
to channel 1, occurs after total-time 
output. 



Figure E16 shows how to aavance the form 
to the next page before the printing of 
totals, if the overflow point was passea 
auring aetail-time output in the same pro- 
gram cycle. 
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Expi^Miionsj. Output specifications in 
lines 01-03 are normal for detail printing 
when there is only one card type. 

If overflow was signalled at detail- 
output time, indicator 95 is SETON at 
total-calculation time — provided there is 
also an T. 1 control break. (95 is SETOF 
each detail-calculation time so as net to 
affect output in subsequent cycles.) 

Output-specifications line 04 provides 
for total-time output when there is a con- 
trol break (11 on) , but the overflew point 
had not teen passed during detail-time out- 
put (95 is off) . The form is advanced 3 
spaces after the total is printed. 

Line C5 provides for total-time output 
when both a control break and an overflow 
signal have occurred — the only condition 
under which indicator 95 is en. This cut- 
put is preceded by forms skipping (0 1 in 
cols. 19-20): thus, a total that was pre- 
ceded by an overflow signal at detail- 
output time is printed on the next page. 

Line 06 provides for output—preceded by 
forms skipping to the next page, but 
without any forms movement after output — to 
cover these situations: 

1. Overflow is signalled at detail-output 
time, but no control break follows; or 

2. Overflow is signalled as the L1 total 
is printed at total-output time on the 
eld page (see line 04) . 
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Single-Card Total Elimination 

Problem: It is often desired not to print 
the lowest-level total when it would be 
identical with the guantity or amount 
listed immediately above it, because the 
control' group consisted of a single card. 

Figure F17 presents two methods for 
accomplishing this. Option I does not, 
however, save the actual total-print opera- 
tion; whereas Option II dees net go through 
the total-print operation at all for a 
single-card group. While not shown, the 
techniques can also be adapted to elimina- 
tion of higher-level (say, L2) totals that 
consist of a single lower-level (say, L1) 
group. 



As sumjg ti on s : 

1. An asterisk is to be printed next to 
the total; when the total is suppressed 
for a single-card group, the asterisk 
is to be printed next to the listed 
value. 

2. When the total is eliminated, the same 
extra spaces as after a total should 
appear after the single item line. 

General explanation: The earliest point at 

which it is known whether a group consists 
of only a single card is at total time fol- 
lowing the last card's detail time. The 
calculation and output specifications are 
based on this fact. 

Explanation — Option I: Normal listing at 
detail time. Space/Before must be used 
because, when the group consists of a 
single card, the total identifying 
asterisk — printed at total time — must be 
printed next to the listed item: there- 
fore, there must be no forms movement until 
total-time output or the next detail time. 



o 



Appendix E. Programming Tips 295 



o 



IBM 



INTERNATIONAL BUSINESS MACHINES COHPOKATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Graphic 
















Punch 

















m 



75 76 77 78 79 80 









E 
8 


1 

J 

J 
u 

7 < 


Indicators 


























































I 
1 
1 


X 

1 
3 

a: 

53 


Resulting 
Indicators 
















Lin. 
3 4 3 


A 


d A 


d 


Factor 1 

7 18 19 20 21 22 23 24 25 26 27 


Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Result Field 

43 44 43 46 47 48 


Fi.ld 
Ungth 

49 30 51 


Hut 


Minus 


Blank 


Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Compare 


High 

1 >i 


l<* 


Equal 
1=2 


i 


10 


ii 


i 

13 


.,1,4 


i 

15 


16 1 


54 55 


56 37 


58 59 


.. 




c 


| 




1 










MINI i 


1 


Si£ 


r 





F 




















| 




















3 


l 


82 


1 

j 


f 


1 


1 1 ! 


i ! 

i j , ;. . | 





2 




c 


1 




L!l 




* 


3F 
•* 




llil j 




I 


S|£ 


T 





M 






















r 
j 


I 
















8 


1 
















1 i ' 
i i 


M 1 ' i 





1 




c 


| 




L \! 






i 




Sltv^fl! ! 


1 l 


Sg 


8 






SJ? 


M 


A 














m 


MB 




































|i i U | !i ' 





4 




c 






! 






4* 


™> 


P" 

c 




i i ! | 




J,r 


| 




























" 















































S 




c 


1 




1 




| 


« 


i\ 




! M ' 






| 
























| 


































■ 1' 




i | 1 1 ■ M i I ; 





4 




c 


i 










1 


Ii 


a 


5\ 


VW\ \ 




i»n 


A^ 









F 


L 


















2j/ 


tid 










t 


2 












■ 1 
| 




| | 


1 1 M ! M ! 1 I 





>\ 


c 


1 










V 


*• 






1! 




y*\ 


j 
































i 






























MMMMM 





• 




c 


! 












C -1 








|M| 




1 1 












i 




















! 
























i 






MMM MM 





» 




c 


l i ! 




6 


f. 




I 






i_i 


1 i ! 




I I 


$Tet 


OH 




1 




















j 
















8 


2 






1 








Ml Ml 


MM 


1 







c 


| 










! 










1 i 


' 1 1 


i 


i 
I j 


















1 
























1 






"TUTTi TM! 


It 


, 




r 


1 










! 




... 




Ml! 






i 


1 






































































: ! i 


i 





IBM 



INTEHNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Graphic 
















Punch 

















m 



75 76 77 78 79 80 







E 








c 
a 

| 

15 


I 

16 


*~ 


Skip 


Output 
Indicators 






S 
| 

38 


1 

39 


End 
PeriMan 
in Output 
(•cord 

40 41 42 43 


i 

1 

44 








Sterling 

Sign 
Position 

71 72 73 74 


Una 
3 4 5 


Filename 

7 8 9 t0 11 12 13 14 


s 

2 

17 


1 
18 


19 20 


21 22 


And And 


Field 
Name 

32 33 34 35 36 37 


Constant or Edit Word 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 


i 

23 24 25 


I 

26 27 28 


z 

29 30 31 


1 


o 


REPORT 


/"" 


D 




1 








NIP 


1 




1 ' ; 








' ; l 






I ; 






2 


o 
























FLDA 








: S 






j i | . ' . 




3 


o 


. ! ■: *> 






















FLDB 




z 




19 






M ; : 




4 


o 


■ i ■ H 




T 




1 


2 






LI 


N82 






















3 


o 


J 


O 


R 






2 






82 
























4 


o 


















N82 






SUMBJ 


z 




19 










7 


o 


: M i : 


\. 




















' 






*t\ 




'*' « 




■ 




















i 














' ! 




• 




; ■ ■ I , 
















1 • 










: , 




:'''■• 


1 


• ':*' 


o 


REPORT 


r 


T 






1 






N82 


i 




Mi; 














1 


o 


Ml i '■ 


o 


R 






2 






82 




', ; 








| : 




• ■ ^ : !"'.■•■.. 


\ , 


1 1 


o 


\ 


w ! 






















flda! ! 






\ s 




i \ • 1 ' ■ ! ! ' : ! ■ '• < ' ; i 


• ; ; 


1 i'»l 


o 


1 


fR ; 












i 




MS2 




' ' 1 


FLDB! ! 


z 




; ;19 








•;»; 


o 


! 


^ in 


1 
1 












j 


S2 


i i 




SUMBl ; 


z 


B 


' 'I 9 




M ' •■ i ! M M • M M ; ! ' M m m 




'H 


o 


j 


! #| 












T 


j 


S2 












I* 




X\ 1 ' | ' i ! i ; M ; ' ; i ': ■ ' . ' * 


! ; ; 


,3 


o 


1 


: I j 




r 






2 


! 


i 


Li 


N82 


; | 




! 










MM: M' M ' ; : ; : , ; M M 


; ; ' 


1* 


o 


tH I! 












i 


1 




) ; 


1 ,' 


SUMB 




z 


B 


IS 




i ! ' : ' Ml M M •; i M i M M 


! ; i 


1 


r ; 


o 


i 




s. 










I 
\ 


i 




i 






! • 




| 






| Z0 




' *■•' M ; MM M : M ! M : m : 








© 


! 


1 !M 










> 


I 












: , j 


i 






\ j 






; ! i 






A 


i 














\ 






• 








; I 












! , , i ' . i : 









o 



Figure E17. Single-Card Total Elimination 



296 System/360 Model 20 CFS Report Frcgram Generator 






If there is a control break (11 on), 
output is also performed at total time. 
The total-identifying asterisk is then 
printed; but the contents of the total 
field (SUME) are printed only if the group 
consisted of mere than one card (N82) — 
otherwise, the output frcm FLDB and SUMB 
would be identical. 

If the group consists of more than cne 
card (N82) — i.e., SUMB wil be printed — the 
form is spaced before the total is printed 

(otherwise, SUMB data overprints FIDE 
data), and after; for a single-card grcup 

(82 on) , it is advanced only after print- 
ing, so that the asterisk fcr total identi- 
fication appears next to the FLDB data. 

The calculation specifications are rou- 
tine, except 

1. Indicator 82 is turned en at total time 

(line 09) when there is a control break 
(11 in eels. 7-8) — provided there was 
also a. control break en the previous 
card (81 on). (L1 on at detail time 
turns on 81--line 02.) 

Indicators 81 and 82 are set eff 
(line 01) before these criteria are 
tested. 

2. Because SUMB is not printed for single- 
card groups (see N82 in line 06, out- 
put) , Blank-After cannot be used in the 
output specifications to clear the 
field. Therefore, it is cleared tc 
zero in the calculations specifications 
(line 03) at the beginning of each con- 
trol group, before the FLDB data from 
the first card of the group is added 
in. 

Explanation—Option II; Because it is 
known by total, time whether the last card 
represented a single-card grcup, it is pos- 
sible to avoid the output operation for the 
total suffi altogether for single-card groups 
if the listed output from card fields is 
also performed at total time (the data from 
the last card is then still available) . 
The secend output (line 15) is not per- 
formed at all unless the group contained 
more than cne card (N82) . 

Fcr multiple-card groups (N82) , FLDB is 
printed (line 12) from each card, and SUMB 
is printed (see lines 15 and 16) beneath 
the last FIDE value. For single-card 



groups, FLDE is suppressed (N82, line 12) , 
and SUMB (82, line 13) is substituted at 
the same point in the cycle; the second 
output (lines 15-17) is not performed. 

FLDB and SUMB contain the same value for 
single-card groups; but this approach per- 
mits use of Blank-After (B in col. 39) to 
reset SUMB , since SUMB is always printed — 
either via line 13 or line 16. 

The asterisk is printed next to SUME for 
either multiple- or single-card groups 
(line 14 or 17) . 

The spacing instructions in the OR line 
(line 10) and in the second output file- 
identification line (line 15) provide for a 
uniform extra space before the first card 
of a new group, regardless of whether it 
follows a multiple- or single-card group. 

Because Blank-After can be used in 
Option II, line 03 in the calculation 
specifications is not needed. 
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Eliminating Excess Control Breaks (Major- 
Minor Control) 

Problem: If a deck of cards consists of 
derail cards with two control fields 

(assigned level 11 and 12) — but each L2- 
level group is preceded by a single card of 
another type (say, to print a heading) 
which contains only the L2 control field — 
then a spurious T. 1 control break may occur 
between the L2-level heading card and the 
first detail card that follows. This 
wastes printer time, causes spacing as spe- 
cified for 11 output and — if all leading 
zeros are not suppressed — causes printing 
of some zeros and (possibly) symbols 

(depending on the edit word — see edit word 
in output specifications for L1 total in 
Figure E18) . 
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Figure E18. Eliminating Excess Control Breaks 



Figure E18 shows how to eliminate the 
false control break. 



Assumptions : 

1. Master cards are assigned card-type 
Resulting Indicator 01; details, indi- 
cator 02. 

2. 12 ccntrcl is assigned to toth card 
types; LI only to details. 

Explanation : The output-format specifica- 
tions are normal cnes for the situation 
described. 
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Preventing 12-0verpunch 






Problem: When punch 
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Zero Suppress (Z in col. 38) of the 
output-format specifications eliminates the 
12-overpunch; but it also eliminates any 
11-overpunch (minus) and leading zeros, 
which is usually not acceptable in a card. 
An edit word, too, removes the 12- 
overpunch; but it also eliminates at least 
one leading zero, and reguires an addition- 
al card column for the 11-punch for a minus 
sign. 

Figure E19 presents a technigue for 
removing the 12-overpunch without eliminat- 



Exp lanatio n: The sign 
field (AMOUNT) is asce 
negative, an F-zone (t 
zone") is moved to its 
(instead of an 8, any 
EBCDIC column F could 
removes the 12-zone pi 
program if the result 
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operation (Z-ADD) — in 
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to Plus and Zero, 
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Punch output is assumed to be without 
Zero Suppress or edit word. 



Not e: Figures 43 and E8 illustrate removal 
of 12- or 1 1-overpunch. 
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Figure E20. Editing Pointers 



Editing Pointers 



l£oblem_J: An edit word is to be assigned 
for printout , (1) to prevent zoning of the 
low-order position, and/or (2) to insert 
characters (symbols) between digits, or to 
precede the amount with fixed $ symbol — but 
all leading zeros, and constants among 
them, are to be printed. 



Solution, A : Increase the size of the field 
by one position. Place a zero 'in the 
extreme left position of the edit-word body 
so that, when the minimum of one leading 
zero is suppressed, a field of the correct 
size — retaining "all leading zeros for the 
original field size — is printed. 
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Solu tion B: Split the field by MOVE and 
MOVEL operations, then treat it as several 
fields. Do not use an edit word. Treat 
synibcls as constants. 

Figure E20 — Methods A and B — illustrates 
the two approaches. 



Assu mptions : 

1. Field SCCSEC defined in input specifi- 
cations as nine digits long--ccntents 
are 095140036. 

2. Field AMOUNT defined in input specifi- 
cations as six digits long, including 
two decimal places — contents are 
000000. 

Problem 2: Printing a two-digit field 

(say, consisting of cents only) so that it 
is preceded by a decimal point when there 
are significant digits in the field, but 
eliminating the printout altogether when 
the field contains only zeros. E.g.: If 
field contents are 05--print .05; if field 
contents are 00--leave output area blank. 

Solution : An edit wcrd cannct be used, 
because a character (symbol) preceding the 
first digit is never printed (except for a 
fixed $ siqn) , and because a leading zero 
would be replaced by blank. Therefore: 



1. Specify the field for output without an 
edit wcrd; 



2. Specify a period (.) as a constant for 
the preceding print position; 

3. Suppress output of the field and the 
constant when the field contents are 
zero. 

Figure 120 — Part C--illustrates this 
approach. 

Assumption: The two-digit field CENTS was 
defined in the input specifications, or 
elsewhere in the calculation specifica- 
tions, as a numeric field. 

Comment s on Pa rtC: The first calculation 
specifications line (Z-ADD, to test for 
zero is unnecessary if an indicator can be 
assigned to Zerc ( or to Plus and Minus) in 
Field Indicators, or in any other arithmet- 
ic operation using CENTS as Result Field 
which may fce reguired for the application 
(if the contents of CENTS are not changed 
thereafter, before output). 

The second calculation specification 
(MLLZO) is necessary because result fields 
of arithmetic operations (or, alternative- 
ly, fields used with Field Indicators in 
input specifications) are signed (hexade- 
cimal C or D) . The output is not to be 
edited; therefore, the equivalent of the 
12-punch or 11-punch zone must be removed 
by calculation specifications. (If a minus 
or CR symbol is to be printed for a nega- 
tive amount, it can be assigned as a con- 
stant in the output specifications, and its 
output controlled by an indicator assiqned 
to Minus in the calculation 
specifications.) 



Date en Same Print line as Constant Heading 
Data 

Problem: The date--read from a lead card — 
is to be printed on the same line as the 
report heading, which is specified as a 
constant. The date cannot be printed dur- 
ing the first detail-output time (1P time) 

--when constant report headings are usual- 
ly printed — because the Date lead card has 
not yet been read at that time. 
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Figure E2 1 presents two of several 
available solutions. 



Explanation of Op tio n I; If the heading is 
to be printed after each ccntrcl break 
(say, Control Level II) and at the top of 
each overflow page, report heading and date 
are simply specified as the first printed 
output at detail-output time for the first 
card of each control group and at overflow- 
output time. This takes care, tco, cf 
heading the first page (otherwise done at 
tP time) , because Control-level indicators 
are also on at detail time of the very 
first card for which Control Levels are 
designated (see main text for special 
situation when ccntrol fields are zero or 
blank in first card) . 

Explanation of Option II r. This method is 
independent of Ccntrol Levels--we have 
assumed that the form is net skipped to a 
fresh page after each control break (or 
that there are no Control Levels assigned) . 

The report heading and date for the 
first page are printed as the only output 
at detail time during processing of the 
Date lead card; they are repeated at the 
top cf each overflow page. 



Selecting the Last Card of Each Control 
Group 

The PIACE specif icaticn card in the PCU 
Collate Program offers the simplest method 
cf selecting the last card of each ccntrol 
group, using the IBM 2560 MFCM attached to 
the Model 20; an IBM collator provides a 
simple method of accomplishing the same, 
offline, without tying up the Model 20 
System. 



If it is desired to select the last card 
of each control group as an incidental to 
the RPG processing of a complete applica- 
tion with the Model 20, this can be 
achieved by branching to a Basic Assembler 
Language subroutine. 

Figure E22 illustrates the necessary 
program instructions. 



Assumpt ion : The B.A.L. program is 
assembled separately. 

Re s trie t ions : 

1. The file must be in the MFCM. 

2. The file must be defined as a combined 
file. 

3. Nc stacker selection — not even to the 
normal stacker--may be designated in 
the input or output specifications for 
the relevant card type. 

4. The last card of each group must be 
directed to a non-normal stacker, with 
the others allowed to enter the normal 
stacker for the hopper involved. 

5. An output operation (punching and/or 
interpreting) must be performed for the 
card that is to be selected. (This 
could be merely the "punching" of a 
blank constant in col. 1.) 

6. Output (punching) must be at detail 
time. 

7. The pertinent f ield (s) must be punched 
into all cards of that type; i.e., it 
is not possible to punch only the last 
card cf the group. 
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Figure E22B. Selecting Last Card of Each Control Group — Part II 



Comments_pn. figure E22: In the calculation 
specifications, only line 04 is directly 
germane to the stacker-selection technique. 
However, to relate the example to a 
realistic problem, we have assumed that a 
detail field (FLDB) is to be summed (line 
03) , and the sum (SUMFLD) is to be punched. 



It is not possible to recognize the last 
card of a control group in time to control 
punching into it only; therefore, SUMF1D is 
punched into each card of the pertinent 
type. The total punched is thus a cumula- 
tive one: in the first card of the group 
it equals FLDB; in the last card, it repre- 
sents the group total. By stacker- 
selecting the last card of each control 
group, a card deck is formed in the select 
stacker (say, stacker 2) with each card 
containing the total of one control group. 



Blank-After cannot be used, because 
punching from SUMFLD occurs each detail 
time — not only at the end of a group. Line 
05 of the calculation specifications pro- 
vides for resetting SUMFLD at the end of 
each group. 



Not e: The same principle may be applied to 
determine stacker selection for a card 
based on the type of card that follows it. 



Exit to the subroutine is then condi- 
tioned by the card-type Resulting Indicator 
for the new (following) card and that of 
the preceding card. The preceding card's 
type is "remembered" by setting an indica- 
tor (SETON) during its processing cycle, 
(remem ber to S ETOF that indicator again at 
an appropriate pointy. 
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Stackers 

Figure E23A. Stacker Selection of Input-File Cards Based on File-Matching and/or Calcu- 
lation Results — Schematic of Card-Type Input Hoppers and Destination 
Stackers 



Stacker Selection of Input-Pile Cards Eased 
on Matching of Files and/or Calculation 
Results 



Assumpti on : The BAL routines are assembled 
separately before generation of the RPG 
object program. 



Problem: In some applications, it is 
necessary to direct input cards to 
different stackers based en their matching 
status (MR on or not on) in a file-matching 
operation and/or based on the results cf 
calculations — yet no output operation 

(punching or card document-printing) is 
reguired for the job. To accomplish this 
with RPG, the f ile (s) must fce defined as 

(a) combined f ile (s) and the pertinent File 
Identification specifications, including 
Stacker Select, must be entered. 



Figure E23 presents a method, involving 
EAL subroutines, that accomplishes the 
desired stacker selection while maximizing 
throughput. 



Restrictions : 

1. The relevant file(s) must be in the 

MFCM. 



The relevant file or files must be 
defined as input files, and no punching 
can be performed in cards of such 
file (s) . 



No document-printing is to be performed 
on cards in any file — net even in a 
different file from the one involved in 
the BAL stacker-selection subroutines. 



Note : It is permissible to designate 
stackers for some card types in a file in 
the input specifications and for other 
types by BAL subroutine. 
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Figure E23B. Stacker Selection cf Input-File Cards Based on File-Matching and/or Calcu- 
lation Results — File Description and Input Specifications 
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Comme n ts_on_Figu r e_E 23 : Figure E23A shows 
the stackers to which the different cards 
are directed by the specifications in 
Figure E23C; any other arrangement is 
egually feasible if appropriate 
modifications are made in the 
calculation-specifications entries. To 
minimize the number of BAL' subroutines, no 
stacker-select instructions are given for 
cards that are to enter the normal stackers 
(card type 01; card types 04, MR; and 04, 
NMR, 10) ; it is unnecessary (though 
permissible) to specify the normal 
stackers . 



Summary Punching Matching-Group Totals into 
Primary Trailer Cards 



Problem: Usually, summary punching of 
Totals for groups of matched primary and 
secondary (and, perhaps, also tertiary) 
cards is accomplished by first merging a 
blank card behind each secondary (or ter- 
tiary) group. (The application example 
Pre-Billincf with_Inv€ntor^_Control , Figures 
63 to 69, utilizes this standard approach.) 
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Occasionally, it may be necessary to 
design a job so that the blank card—into 
which data is to be punched at the end of 
each complete group — is merged behind the 
last card cf each primary group. However — 
as explained in the earlier section Match- 
ing of Files — blank cards are always pro- 



cessed immediately after the previous card 
in the same file. It is, therefore, not 
possible to delay the processing of (i.e., 
punching into) a blank card in the primary 
file until secondary- (or tertiary-) file 
cards of the matching group have been 
processed. 
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Summary-punching into the "blank" card 
is at total time when — although the 
"blanks" are unmatched (en M1) — the ME 
indicator is still on frcm the last card of 
a matched group, but the new card-type 
indicator is already on. 

Js s t r i c t iens : 

1. There must be a column in all cards 

(other than the "blank" card) that is 
always blank. 



(Alternatively, it may, instead of 
being blank, contain the same entry in 
all such cards if the value of that 
entry is lower — if ascending sequence 
applies — than the value of the constant 
punched into the blank cards. "Lower" 
refers to the applicable collating 
sequence: EBCDIC or user-altered 
collating seguence; if numeric is spe- 
cified for the field, only hexadecimal 
column F applies.) 

2. Not more than two Matching-Fields 

levels (M2 and M3) can be needed for 
the job, so that Ml is available to 
control the movement of the "blank" 
cards. 



Note : If descending sequence applies, a 
blank column serves as M1 in the "blank" 
cards, and a uniform value higher than 
blank must be punched (or must already 
exist) in all ether cards. 

Figure E24 illustrates the problem. 
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Figure E24A. Summary Punching Matching-Group Totals into Primary Trailer Cards — Part I 



c 



Comments on Figure E24: The input specifi- 
cations re-emphasize (1) that the Matching 
Fields need not te in the same column in 
different card types and (2) that stacker 
selection — even to the normal stacker — 
should preferably be given in the input 
specifications for combined-file card types 



for which no output operation is reguired. 
(The input-only file of transaction cards 
is directed to the normal stacker for the 
secondary hepper without the need for a 
stacker-select specification.) 
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Figure E24B. Summary Punching Matching-Group Totals into Primary Trailer Cards — Part II 






Calculation specifications have been 
omitted because they are not affected by 
the particular Matching-Fields approach 
under discussion. 

Output to the trailer card must be at 
total time (T in col. 15): the trailer 
cards are always unmatched (because the M1 



field was so designed) ; but, at total 
time, the MR indicator is still on if the 
preceding primary-file card matched the 
secondaries (which were then processed 
ahead of the "blank" trailer card) . On the 
other hand, at total time, the indicator 
for the new card is already on, so that 
punching into the trailer card can also be 
conditioned by its indicator (02) . 
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Trailer cards of matched groups are 
directed to stacker 2; of unmatched groups, 
to stacker 3. 

General 



Object Program Register Usage 

In some applications in which the 
programmer specifies branching from RPG to 
a B.A.L. subroutine (by the EXIT operation 



code) , it is important to know, for 
programming of the subroutine, what 
function each of the eight general 
registers performs — (1) so that the 
contents of certain registers can be 
preserved before other data is placed in 
those registers during the subroutine, and 
(2) to make use of the data in the 
registers for the subroutine. 

Figure E25 itemizes the functions of the 
general registers. 
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Figure E25. Object Program Register Usage 
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TO PCINTS IN PROGRAM CYCLE 



o 



Indicators 



Card -Type 
Resulting Indicator 



Field Indicators: 
Plus/Minus 



Zero/Blank 



Control Level 
(L1-L9) 



Matching Records 
(MR) — based on 
Matching Fields 



Calculation 
Resulting Indicators 



-C v> 


Plus 




1* 


Minus 




Zero 




a. 

o 


High 




Low 




u 


Equal 




N 


Plus 




1— 


Minus 




h- 


Blank 





High 
Low 

Equal 



Indicators 



LI -L9 (Control Level) 



LO (Universal Total) 



LR (Last Record Total) 



IP (First Page) 



OF/OV (Overflow) 



H1/H2 (Halt) 



01-99 (General) 



Where Located 



Input Specs. ■ 
Cols. 19-20 



Input Specs. - 

"CoTsT~65^68: 
Num. only 

Cols. 69-70 



Input Specs 
Cols. 59-60 



Input Specs. - cols. 
61-62: Ml, M2, 
M3 Control MR 



Calc. Specs. - 
Columns 54-59 



Where Normally 

Used as 

Conditioning Indicators 



Input: Field-Record 
Relation (cols. 63-64) 
Calc: Indicators 
(cols. 9-17) 
Output: Output 
Indicators (cols. 
23-31) 



Calc: Indicators 
(cols. 9-17) 



Output: Output 
Indicators (cols. 
I 23-31) 



ICalc: Control Level 
i(cols. 7-8) 
[Calc: Indicators 
|(cols. 9-17) 
(Output: Output 
(indicators (cols. 23-31) 



Calc: Indicators 
(cols. 9-17) 
Output: Output 
Indicators (cols. 
23-31) 



Calc: Indicators 
(cols. 9-17) 
Output: Output 
Indicators (cols. 
23-31) 



Where Normally Specified to be 
Turned On or Off 



Control Level: Cols. 59-60 - Input Specs. 



Nowhere 



Nowhere 



Nowhere 



Nowhere 



Field and Resulting Indicators 



Field and Resulting Indicators 



Normally Turned On 



By 



Record Identification 



Plus/Minus (but not ±0), 
respectively, in field. 



0/b (num., incl. ±0); or 
•b (alph.) in field. 



Control break of that 
or higher level 



Matching of primary 
with secondary &/or 
tertiary record 



When 



Before total - 
time calcs. 



Before detail- 
time calcs. 



Initially; upon 
Blank-After; & 
before detail 
calcs. when 
field 0/b 



Before total - 
time calcs. 



Before detail 
time calcs. 



*Note: Zero-or-Blank indicators for arith. 
and TESTZ ops. are on initially and 
following Blank -After 



Plus result 

Minus result 

Field contents zero* 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 



12 = hex. 50 or Cx 
1 1 = hex. 60 or Dx 
other: hex f 50, 60, 
.Cx, Dx* 



Factor 1 < Factor 2 
Factor 1 > Factor 2 
Factor 1 = Factor 



Immediately, 
when the 
specified 
condition is 
met upon 
execution of 
the operation, 



Turned On by Program Itself 



Before total time upon control break 



Initially & after each detail-output time 



Before total time following last data card 
(before/*) 



At beginning of program execution 



After outputs following printing at/past 
channel 12 (but not 1) 



Never - but, if on at detail-output time, 
halts system thereafter 



Ne 



Normally Turned Off 



By 



Different new record. 
(Only one such 
indicator on at one 
time) 



Non-Plus / Minus data 
read in from field 



Non-0/fe data read 
in from field 



Program itself 



Non-match between 
primary and other 
records 



Failure to satisfy the 
assigned condition 
when the specifications 
in the line are executed 



Whe 



Before total-time 
calcs. 



Before detail- 
time calcs. 



After detail- 
time output 



Before detail- 
time calcs. 



Immediately 



Turned Off by Program Itself 



After each detail output time 



Never 



After detail output time (unless LR 
terminated job) 



After each detail-time output 



After next detail-time output 



When system is restarted after halt 



Never 



NOTE: 1 Any indicator may be turned on by a SETON specification, or turned off by a SETOF specification. 

2 Any indicator except L0 may be assigned as Field or Resulting Indicator —but, for unconventional assignments, Indicator 
Hierarchy and RPG Program Logic should be consulted. (Indicator L0 can only be assigned in calculation Resulting Indicators.) 

3 An indicator of one name or number is the same indicator no matter where or how often assigned. 
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APPENDIX G. SUMMARY OF EPG SPECIFICATIONS 



c# 



This brief column-by-column description of 
each of the five EPG specifications fcrms 
is intended to provide a concise reference 
guide for the normal, common entries. 
Abbreviated phraseology is employed (symbol 
"B =■ blank). For details, and less conven- 
tional specifications, the body of the 
manual should be consulted. 

Figures 6 (EPG Program Logic) and 36 
(Fields Pertinent to Each Operation Code) 
are repeated at the end of this chapter, 
for the user's convenience. A new chart 
(Figure G1: Calculation Operations Sum- 
mary) is also appended. 



The code appropriate to each specifications 
type is preprinted on the form, and must be 
punched. (The pertinent codes are shown 
above.) 



Comments Card 7 



(0) 



An asterisk (*) identifies a comments line 
for which no generation takes place. 

Program Identification 75-8 (0) 

Any information desired to identify the 
specifications card. 



Note : The numbers that follow the 
underscored item name represent the. 
specifications-card column for the item. 
The (R) or (0) after the card-column 
numbers indicate that an entry is reguired 
or optional respectively. 



ALI SPECIFICATION FOBMS 

Pa^e 1-2 (0) 
line 3-5 (O) 

Any EBCDIC characters (see Appendix D) may 
be entered, and any position may be left 
blank. Recommended; Ascending numeric 
sequence, to number cards in the order in 
which they are to be entered into the sys- 
tem. The specifications types must be in 
the following order for program generation: 

File Description Specifications (code F 

in col. 6) 
File Extension Specifications (cede E 

in ccl. 6) 
Input Specifications (code I in ccl. 6) 
Output-Format Specifications (cede in 

ccl. 6) 
Calculation Specifications (code C in 

col. 6) 

The specifications types are summarized 
here, however, in the same seguence in 
which they appear in the body of this manu- 
al, which was thought to be the most likely 
order of writing an EPG program. 

The first two line-number digits are 
preprinted for convenience, en the first 15 
lines of each page; the third is available 
to identify additional lines to be 
inserted . 

Form, .Tvjge 6 (E) 



FILE DESCRIPTION SPECIFICATIONS (REQUIRED) 

Zile_Naje 7-14 (R) 

Enter a name once for each file used in the 
program. Left- justify. One to eight 
characters: first alphabetic, remainder 
alphabetic or numeric; no special charac- 
ters or embedded blanks. 



File Type 1 : 



(R) 



I = Input: File name appears in input — but 
net output — specifications. 

= Output: File name appears in output — 
but not input--specif ications. 

C = Combined: File name appears in input 
and output specs. --file contains cards 
to be read, and cards to be punched 
and/or interpreted. (A file with cards 
to be read, and cards to be stacker- 
selected on any basis besides card 
type, must be defined C.) 



o 



File De si gnation 1 6 
RPGs) 



(C — this EPG; E — other 



P = First (primary) or sole input or 
combined file 

S = Second or third (secondary/tertiary) 
input or combined file 
Note: Enter P ahead of S, and 

secondary ahead of tertiary. 

±> = Output file 

End_of_File 17 (0) 

E = LR turns on when last data card of all 
input or combined files for which E is 
specified has been processed. 
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o 



b = Turning on of LE determined by E 

entered for ether files; or, if t> for 
all input and combined files, 



= E entry for all input and combined 
files. 



= LR turns en when last data card of all 
input or combined files has been 
processed. 
\ 



Leave blank for output files. 



Seq uence 18 (E: multiple input or 
combined files) 
(0: single input or combined 
file) 

b = Output file; or 

fc = Single input or combined file which is 
not to be seguence-checked by 
Matching-f ields entry. 

A = Ascending ~j seguence of single or of 

> all multiple 
D = Descending ) input and combined files. 

Multiple input and combined* files must 
all have same seguence. 

Columns 19-39 Leave blank. 

Device 40-46 (E) 

Code — left- justified — of I/O device to be 
associated with file name. Do not assign 
same device to more than one file, or vice 
versa. 



CRP20 
MFCM 1 
MFCM2 
PRINTER 



PRINTLF 
PRINTUF 



PUHCH20 
PUNCH42 
EEAD01 



IBM 2520 Card Read-Punch 

IBM 2560 MFCM, Hopper 1 

IBM 2560 MFCM, Hopper 2 

IBM 1403 Printer, or 

IBM 2203 Printer — 

Standard or Lower Feed 

PRINTER (see immediately above) 

IBM 2203 Printer— Upper Feed 

(Dual-Feed Carriage 

special feature) 
IBM 2520 Card Punch 
IBM 1442 Card Punch 
IBM 2501 Card Reader 



Columns 47-65 Leave blank, 



INPUT SPECIFICATIONS (REQUIRED) 

Input Specifications contain entries only 
for input and combined files. At least one 
input or combined file is reguired. For 
multiple input or combined files, record 
files in order of priority: Primary, 
Secondary, Tertiary (if applicable). 



File and Card-Type Identification 7-42 (R) 



File Name 7-14 (R) 

Enter name once per 
file — left- justified . One to eight 
characters: first alphabetic, remainder 
alphabetic or numeric, no special 
characters or embedded blanks. 

Same name must appear as input or 
combined file in file-description 
specifications . 



AND Relationship 14-16 (0) 

AND = Record Identification Codes (col. 
21—41) in this line must be 
considered with those from the 
preceding line to establish 
identification of the card type. 



OR Relat ionshi p 14-15 (0) 

OR = The card type defined in this line is 
to be in an OR relationship to that 
defined in the preceding line. It may 
or may not be assigned a separate 
Resulting Indicator (cols. 19-20). 



Sequence 15-16 (R) 

To check relative seguence of card types 
within a file: 

Record such card types in the order in 
which they should appear in the 
file; 

Assign 01 to the first such card type 
within a file; 

Assign any two-digit numbers (higher 
than 01) to succeeding card types, 
in ascending seguence. (Leading 
zeros must te recorded.) 

Note : Seguence does not recognize Control- 
Level breaks. 






Comments 66-74 (0) 

Any information that is to be printed next 
to the specif icatiens at object-program 
generation time without affecting the 
program. 



For card types that may appear in any 
relative position or sequence in the file: 

Record any two alphabetic characters. 

When both card types with numeric and 
alphabetic Seguence codes exist within a 
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file, these with alphabetic codes must 
appear first. 

Do not enter a Sequence code in AND or 
OR lines. 

Number 17 (R: eels. 15-16 numeric) 

ft>: cols. 15-16 alphabetic) 

t = Sequence code is alphabetic 

1 = One such card per qrcup \ Sequence 

N = One or more such cards per > code is 

qroup ) numeric 

Option 18(0: eels. 15-16 numeric) 

(£: cols. 15-16 alphabetic) 

■b = Sequence code is alphabetic; 
or 

•t = Card type must be represented^ 

in each qroup /Sequence 

leode is 

= Card type need net be repre- (numeric 
sented in each qroup J 



Resulting Indica tor 19-20 (0) 

01-99, HI, H2 = Indicator number to repre- 
sent the card type defined 
by the Record Identifica- 
tion Codes (cols. 21-41). 
(Do not drop a leadinq 
zero.) 

HI, H2 cause halt after 
next card is read. 

15 = No indicator to be assiqned to this 

card type; or 
= OR line to which same indicator is to 

apply as in the precedinq line with 

indicator; or 
= AND line 

Indicator turns on, and previous card- 
type Resulting Indicator turns off, before 
total time following readinq of card. 
(Other indicators — besides 01-99, H1, H2 — 
are also permitted, but require detailed 
understanding of time relationships and 
indicator hierarchy.) 



Record Identif ica tion Codes 21-41 ( ) 

Three identical subfields: eels. 
21-27, 28-34, 35-41. Subfields are in AND 
relationship; additonal AND subfields, and 
OR relationships, available throuqh AND and 
OR lines (see cols. 14-16). Only the 
first subfield is described here. If 
entire area (cols. 21-41) blank, all cards 
tested against this line are identified as 
this card type. (See Nature of the Card- 
Type Se qu ence Check for order in which 
identification lines are tested.) 



Position [cols.. 21-24) . Number of card 

column containing an identifying code. 
Riqht- justify; leadinq zeros unnecessary. 



Not (col. 25) . 



N = The cede (col. 27) 

must be absent /to satisfy criteria 

1> = The code (col. 27) ^ for this card type 
must be present 






C/Z/D (col. 261 



C = Match entire character in data-card 

column aqainst entire code in specifi- 
cation col. 27. 



D = Match diqit portion of character in 

data-card column aqainst diqit portion 
of code in specification col. 27, 



Z = Match zone portion of character in 

data-card column against zone portion 
of cede in specification col. 27. 



Character (col. 27) . Identifying code 

(any EBCDIC) for which to test. If D or Z 
in col. 26- — with other than A-Z, 12, 11, 
0-9, +0, -0, or "b — see C/Z/D in body of 
manual. 



Stacker Select 42 (C) 

Number of stacker tc which card type is 
to be directed (subject to stackers avail- 
able in particular I/O unit) . 

t) = Input-file card type to normal or 
only stacker of I/O device; or 

= Combined-file card type requirinq 
output operation; or 

= AND Jine 

1-5 ■= Input-File card type to specific 
stacker of I/O device; or 
= Combined-file card type requiring no 
output stacker selection, card punch- 
inq, or card document-printinq. 



Field Descriptions 43-74 



(0) 



Field-description lines for a card type 
(or qroup of OR- relation card types) — one 
line per input field used in the proqram — 
follow immediately beneath the File and 
Card-Type Identification line (s) for the 
card type (s) . The entries for card-type 
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o 



identification and field description must 
not be in the same line. 



Note: E means that the entry is required 
when there is a Field-Description line. 



Packed 4 3 (0) 

t = Input data in standard (non-packed) 
format; or 
= Input data net defined as numeric. 

P = Input data, from field defined as 

numeric (0-9 in col. 52), already in 
packed format — limitations: 

Maximum length of field = 8 columns 
( = 15 digit positions, plus sign); 
No Control Level (eels. 59-60) or 
Hatching Fields (cols. 61-62) entry 
permitted. 



Note: In subsequent operations, a packed 
input field must be considered of length L 
= 2n-1, where n = number of columns. 



Definition as numeric: 



Iiel<LLocation 44-51 (R) 



o 



card column of 
input field — 
range: 1 —80 






From (cols. 44- 4 71 • 

First ^leftmost) 

To (cols. 4 JhilX . 

Last (rightmost) 

Eight- justify; leading zeros unnecessary. 

Max. permissible field sizes where less 
than" 80: Numeric field — 15 digit posi- 
tions (plus sign) ; Alphameric field used 
in CCKP operations — 40 positions. 



Decimal Posit ions 52 (0) 

* = Alphameric field; or 

= Numeric field that need not be defined 
as numeric (see immediately below) . 

0-9 = Number of decimal places in field 

hereby defined as numeric. Field must 
be defined as numeric if: 

a. Used in arithmetic calculations; or 

t. To be used in numeric (as con- 
trasted with logical) COMP opera- 
tion; or 

c. To be formatted for output by edit 
word or zero suppress; or 

d. To act as search argument (LCKUP 
operation) for an argument table 
defined as numeric; or 

e. E (packed) is specified in col. 
43. 



c. 



Strips all zones — except in the 
low-order position — for general use 
cf the field (i.e., the program 
packs the field) ; and 

Strips all zones for use of the 
field in Control-Level or Matching- 
Fields operations. 

Limits the field size to 15 digits 
(plus sign) . 



field_Name 53-58 (R) 

Left- justify . One tc six characters (four<- 
character limit if used with RLABL op. 
code) : 

first alphabetic, remainder alphabetic 

or numeric. 
No special characters or embedded 

blanks. 
ALTSEQ, CONTD(x), TAB (-X) U) (x) , and 
PAGEx(x) prohibited — see body of 
manual for use of PAGEbfc. 



Control_Level 59-6 (0) 

L1 s -L9 = Control-Level indicator (s) for that 
and lower levels turn on when field 
contents in successive cards differ 
(L 1 is lowest level, L9 highest.) 

Multiple Control levels for one card 
type must be specified in ascending 
sequence — lowest level used appears in 
uppermost line for which a Control Level is 
designated. The lowest level assigned need 
not be L1, and there may be gaps in levels 
used. A Control Level may be assigned to 
some card types and not others. 

Same Control level may be split among 
several fields, but no other Control Level 
may intervene between the portions. The 
sum of the number columns for all portions 
of a split Control Level, and for unsplit 
control fields, must be uniform for all 
card types where that level is specified . 

If any field to which a Control Level is 
assigned is defined as numeric, all control 
of that level is numeric (all zones 
stripped) . 

Packed input fields cannot have Control 
Level assigned. 



Matching Fields 61-62 (C) 

A primary file can be matched to a 
secondary file, or to a secondary and a 
tertiary file; and files can be seguence 
checked. 
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M1-M3 = Successive cards of sinqle or mul- 
tiple input and combined files are 
sequence-checked en the field (s) ; 
also 
= Multiple input or combined files 
are matched on the field (s) --this 
determines status of ME indicator, 
and sequence in which cards frcm 
the several files are processed, 
within the priorities (primary, 
secondary, tertiary) established by 
the file order in the input 
specifications. 

M1 must be assiqned tc lowest-level or 
only Matchinq Field, M2 to next hiqher, M3 
to hiqhest. 

A Matchinq-Fields level cannot be split 
between several fields in one card type. 

Matchinq Fields may be assiqned to some 
card types and not others; but 

a. At least one card type in each of 
multiple input or ccmbined files 
must have Matchinq Fields assiqned; 
and 

t. The same number of Matchinq-Fields 
levels must be specified for all 
applicable card types, and the 
lenqth of a Matchinq Field of cne 
level must be unif crm. 



Relation, the indicator-conditioned 
entry takes precedence when the per- 
tinent indicator is on. 

Any Control-Level or Matchinq-Fields 
entry without indicator must precede any 
entry with indicator for the same level. 
Do not condition portions of one split Con- 
trol Level differently. Do not vary the 
number of Matchinq Fields levels applicable 
to different OR card types beyond the 
choice of whether or not Matchinq Fields 
apply. 

It is advantaqeous to qroup field- 
description lines by indicator, preceded by 
those without indicator. 



Field, Indicators 65-70 (C) 

Enter any indicator code (normally: 01-99, 
H1, H2) to cause that indicator to turn on 
if the field contents conform to the 
assiqnment of the indicator; any indicators 
assiqned to the other two conditions turn 
off--the settinqs occur before 
detail-calculation time. (Do not drop a 
leadinq zero.) The same indicator assiqned 
to more than one condition turns on if one 
of these is satisfied. 

If H1 or H2 is turned on, system halts 
after next card is read. 






If any field to which a Matchinq-Fields 
level is assiqned is defined as numeric, 
all matchinq and/or sequence-checkinq for 
that level is numeric (all zenes stripped) . 

Packed input fields cannot have Matchinq 
Fields assiqned. 

Matchinq Fields have no inherent rela- 
tionship to Control Levels, nor need Con- 
trol Levels be specified solely because 
Matchinq Fields are specified. 



Plus (cols. 65- 66) . Tests for value in 

numeric field qreater than zero (low-order 
position 12- or no overpunch — but excluding 
all-zero value siqned plus) . 



Minus ( cols. 67-68 ). Tests for value in 
numeric field less than zero (low-order 
position 1 1-overpunch--but excludinq all- 
zero value siqned minus) . 



Field-Record Relation 63-6 4 (0) 

To relate a field description to a particu- 
lar cne of several card types in an OR 
relationship, enter here the card-type 
Resulting Indicator assiqned tc the per- 
tinent card type. Fields without indicator 
are associated with all card types in the 
OR relationship, reqardless of whether they 
also appear with indicator — except for 
Control-Level and Matchinq-Fields 
operations: 

If the same Control Level or Matchinq- 
Fields level appears bcth with and 
without an indicator in Field-Record 



Zero or Blank , (cols . 69-70) . Alphameric 
field: tests for blank. Numeric field: 
tests for absence of siqnificant digits 
(1-9) ; i.e., turns en if blank, zero, ±0, 
or zones alone. Indicator also turned on 
at beqinninq of proqram execution and fol- 
lowinq each Blank-After output 
specification — until chanqed by data read 
from card of pertinent type. 



Sterling Sign Position 71-74 (0) 

Leave blank unless processing Sterling- 
currency amounts. (Refer to SRL publica- 
tion IBM System/360 Model 20, Sterling Cur- 
renc y P roc essing, Routines, Form C26-3605.) 
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CAICULATICN SPECIFICATIONS (OPTIONAL) 

See Figures G1 and G2 at end of chapter for 
supplementary details. 



Note: Operations occur in the order speci- 
fied, within grouping of detail time or 
total time (see cols. 7-8) . 



C o n t r c 1_ I e v e 1_ 7^J ( ) 



Literal 

Numeric. Maximum length: ten characters. 
May consist only of digits (0-9) 
and — optionally; 

Cne decimal point (or comma, if Euro- 
pean notation specified in RPG Control 
Card — Card H, ccl. 21), and/or one 
leading sign (+ or -) . 

Number assumed positive if no sign, and 
integer if no decimal point. 



•¥> = Detail-time operation 

L1-L9, LB, 10 = Total-time operation, and 
performed cnly if the spe- 
cified indicator is then 
en. L0 normally always on 
(exceptions: see text). 
L1-L9 en when control hreak 
of that cr higher level. 
LR on after processing last 
input card (also turns en 
L1-L9) . 



Note: All detail-time calculation specifi- 
cations must precede those for total time. 



Indicators 9-17 



(0) 






Three identical subfields in AND rela- 
tionship: cols. 9-11, 12-14, 15-17. One 
to three indicators may he entered to con- 
dition performance of the operation. Sta- 
tus of the indicators not affected ty 
specification here. 



Entire field blank = 



Execute operation each 
program cycle 



txx (xx = any 
indicator) 



Nxx 



= Execute operation only 

if that indicator is 

en. 

= Execute operation only 

if that indicator is 
off. 



Note: + is punch combination 12-6-8 

Al phameric . Maximum lenght : eight EBCDIC 
characters, plus enclosing apostrophes. 

Factor 1 used with operation codes ADD, 

SUB, MULT, DIV, COMP, TAG, LOKUP. 

Factor 2 used with all operations except 
MVR, 'TESTZ, SETON, SETOF, TAG, RLABL. 
(Field name limited to four characters if 
used with EXIT operation.) Also see 
Figures G1 and. G2 at end of this chapter. 



Operation 28-32 



E) 



Entry of an RPG operation code, left- 
justified, reguired (except in a Comments 
line — asterisk in col. 7). 

Decimal alignment automatic in arithmet- 
ic operations and numeric COMP. Sign con- 
trol automatic in arithmetic operations. 
Results of arithmetic operations always 
signed; zero result always +0. See Figures 
G1 and G2 at end of chapter for operations 
summary. 



Operations with Reduced Field-Size Limits 

COMP (alphameric) : 40 positions 
LCKUP (alphameric) : 80 positions 
Arithmetic ops. reguire numeric fields; 
TESTZ requires alphameric field. 



Note: An indicator in cols. 7-8 is in AND 
relationship tc indicators in cols. 9-17. 



Factor __1 
Factcr 2 



18-27 
33-42 






Field names or literals used in calcula- 
tion Enter left- justified. 



I, !i.§i3_ Name 

Must te defined as Result Field in cal- 
culation specifications cr — if it is an 
input field--in input specifications. 



Result Field 43-48 

Name (left- justified) representing loca- 
tion where result of operation is to be 
stored. One to six characters (four- 
character limit if used with RLABI op. 
code) ; first alphabetic, remainder alpha- 
betic or numeric. No special characters or 
embedded blanks. PAGE has special use; 
INxx restricted in RLABL lines; 
TAB (x) (x) (x) confined to function table. 

See Figures G1 and G2 at end of chapter 
for operations requiring Result-Field 
entry. 
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Defining Result Field 43-4 8, 49-51, 52 



Every Result Field must te defined cnce, 
either in a calculation specif icaticn cr — 
if it is an input or table field — in the 
input or file extension specifications, 
respectively. If defined more than cnce 
(unnecessary), all definitions (length, 
decimals) must be uniform. 

A field is defined by assigning field 
name (cols. 43-48), field length (eels. 
49-5 1), and — if numeric—decimal positions 
(col. 52). Result Field is used with 
arithmetic, move, TESTZ, and RLAEL 
operations (i.e., all except CCMF, SETCN, 
SETOF, GCTC, TAG, EXIT) ; used with LCKUP 
only if function table. 



Iield_Len5th 49-51 (0) 

t = Nc Result Field with this operation 

(cols. 43-48 blank) ; or Result 

Field not defined here. 
1-15 = Numeric field (if tco short fcr 

result, high-order digits lost) . 
1-40 = Alphameric field used in COMP op. 
1-80 = Alphameric field used in table LOKUP 

op. 
1-256= Alphameric field, net used in CCMP 

or LOKDP op. 
Leading zeros unnecessary. 



Decimal Positions 52 (0) 



0-9 = 



Alpham 
that n 
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Result 
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(a) Us 
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wi 
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y) defin 
length i 
must be 
ed in ar 
ed in nu 
th logic 

be form 
it word 

act as 
.) for 

numeric 
tput to 



Id (cr 
be def 
d with 
blank) 
ot def 
mal pi 
ed as 
n cols 
define 
ithmet 
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search 
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numeric field 
ined as such) ; or 

this operation 
; or 

ined here, 
aces in field 
numeric (total 
. 49-51). 
d as numeric if 
ic ops. ; or 
(as contrasted 
HP op. ; or 
for output by 
c suppress; cr 

argument (LCKUP 
nt table defined 



packed format. 



Half_Adjust 53 (0) 



H = Half-adjust result of arithmetic opera- 
tion before dropping excess decimal 
position (s) . 



Resulti ng Indicators 5 4-59 



Any indicators may be specified — 
normally: 01-99, H1, H2 (if H1 or H2 is on 
at end of detail-calculation time, system 
halts after next card is read) . Changes in 
indicator status are effective as soon as 
operation has been performed. Up to three 
indicators may be assigned in operations 
that permit any Resulting Indicators 
(except LOKUP) . The same indicator can be 
specified in several lines. 



Ari th metic Oper ati ons (0) 



All fields must be numeric. Enter indi- 
cator code (if desired) to cause that indi- 
cator to turn on if the result conforms to 
the assignment of the indicator; any indi- 
cators assigned to the other two conditions 
turn off. The same indicator assigned to 
more than one condition turns on if one of 
these is satisfied. 



Plus (c ols . 54-55) . Result greater than 

zero (excludes+O) . 

Minus (cols. 5 6-57) . Result less than zero. 

Zero (cols. 58-59) . Result zero (always 

+0) . Also on initially, and following 

Blank-After (output specs.) 



Compare (COMP) Operation (R — at least one) 

An indicator whose assignment reflects 
the operation result turns en; others turn 
off. One indicator assigned to more than 
one condition turns on if any of these is 
satisfied . 



o 



High (cols. 54-55) . 

Low { c o 1 s^ 56 -57 ) . 

Ja ual_ J col s^._ 58-591 • 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 



Comparison algebraic fcr numeric fields, 
logical (EBCDIC seguence) for alphameric 
fields. 



Test Zone (TESTZ) (R — at least one) 

Alphameric field only. High-order posi- 
tion cf field is tested. An indicator 
whose assignment reflects the operation 
result turns en; others turn off. One 
indicator assigned to more than one condi- 
tion turns on if any of these is satisfied. 

High (cols. 54-55) . 12-zcne (hex. 50 or 

Cx) 

Lo w (cols.. 56-57) . 1 1-zone (hex. 60 or Dx) 

Blank (cols. 58-59) . No zone (not hex. 

50, 60, Cx, Dx) . Also on initially, and 
following Blank-After (Output specs.). 



( 






n 



320 System/360 Model 20 CPS Report Program Generator 



Set Indicators (SETON, SETCF) (E — at least 
one) 

The indicators specified are turned on 
or off, respectively. 



Table Lock-Up (LOKUP) (E — cne or two) 
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Factor 2 > Factor 1 

Factor 2 < Factor 1 

. Factor 2 = Factor 1 



m^i/ 



vL^F 



Note that High and Lew significance is the 
reverse cf fcrm-cclumn heading. 



Other Operation Cedes 

No Eesulting Indicators permitted. 

Comments 6 0-74 (0) 

Permits any comments to be printed at 
generation time next to specifications in 
the same line, without affecting program 
generation. 

FILE EXTENSION SPECIFICATIONS (OPTIONAL) 

Eeguired if table lock-up (LOKUP) used in 
Calculation Specifications. 

Columns 7-26 

Leave blank. 

Ii£sjt_ 2 £_ On l_y_ T a b 1 e_ in_ a_T a b le^I n_p_ ut_ D ec k 
27-45 (E) 

Tab_le._Name 27-32 (E) 

Left- justify . Four to six characters 
(four-character limit if used with ELAEL 
op. code) : 

first three TAB, remainder alphabetic or 

numeric. 



No special characters or embedded 
blanks. 



If alternating-table input, this is name 
of table to which first entry in each card 
belongs. 

Number of Ta ble Entries per Eecord 3 3-35 (E) 

Number of entries in one card of this 
table. Eight- justify; leading zeros 
unnecessary. 

Number of Table Entries per Table 3 6 - 3 9 ( E ) 

Exact total number of entries in this 
table. Eight- justify; leading zeros 
unnecessary. 

Leng_th_of_Table_Entr^ 40-42 (E) 

Number cf columns per entry for this 
table (named in cols. 27-32). Eight- 
justify; leading zeros unnecessary. 

Maxima: Alphameric — 80 columns 
Numeric — 15 columns 

Packed 43 

Leave blank: Packed-data table input 
not permitted 



Decimal Positions 44 



(C) 



15 = Alphameric 

0-9 = Number of decimal places in numeric- 
table field. 
N =0 



Sequence 45 (0) 



t> = Table search only for Equal match 
A = Table values in \ 

ascending seguence f High or Low search 
D = Table values in f specified 

descending sequence ) 



Sec ond Table, Alter nating-Ta ble Formats 
46-57 (0) 



Table Name 46-51 (E) 

Name of table to which second entry in 
each card belongs. Entries equivalent to 
those described under col. 27-32. 



Length of Table Entry 52-54 (E) 

Equivalent to cols. 40-42, but for 
second table. 
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Packed 5 5 

Leave blank. 

Decimal_ Positions 56 (0) 
Eguivalent to ccl. 44 

Sequence 57 (0) 

Eguivalent to ccl. 45 

Comments 5 8-74 (0) 

Permits any comments to be printed at 
generation time next to specifications in 
the same line, without afiecting program 
generation. 

OUTPUT-FCRMAT SPECIFICATIONS (OPTIONAL) 

Output specifications contain entries cnly 
for output and combined files. All detail- 
tor heading-) time output specified ahead 
of total-time output. Output (within 
grouping of detail and total time) occurs 
in the order specified — except (1) separate 
overflow-output time and (2) card-print 
transfer to output-storage area after card- 
punch transfer for same File-Identification 
group. 

(Preferably, alternate punching and 
forms-printing when mere than one of either 
during same cycle segment.) 

File Identification and Ccntrol 7-31 ( R ) 

File Name 7-14 (R) 

Enter ence for each output operation to 
the file (but card punching and card- 
printing to the same card specified under a 
single file-identification entry) . 

Exception: When output to same file 
specified repeatedly, file name need net be 
repeated if no other file name intervenes. 

Left- justify . One to eight characters: 
first alphabetic, remainder alphabetic or 
numeric; no special character or embedded 
blanks. Same name must appear as output or 
combined file in file-description 
specifications. 



ll£e 15 (B) 

E (or H) = Detail-time output 



During overflow output, T output precedes 
D. 



Stacker. Se lect 16 (0) 

t = Normal stacker; or 

= Single-stacker device; or 
= Card type (combined file) stacker- 
selected in input specifications 

1-5 = Output- or combined-file card to spe- 
cific stacker of I/C device (combined 
file not stacker-selected in input 
specifications) . 



M1_R eiat iens hi£ 14-16 ( ) 

AND = Output Indicators (cols. 23-31) in 
this line must be considered with 
those from the preceding line to 
establish the conditions under which 
the output is performed. 



OR Relationship 14-15 ( ) 

OR = The output conditions defined in this 
line are in an OR relationship to 
those defined in the preceding line. 
If either set of conditions (Output 
Indicators, cols. 23-31) is satis- 
fied, the output is performed at the 
appropriate time. 

Forms control from the preceding line is 
applied unless cols. 17-22 contain an 
entry. (0 is considered an entry.) 



Sp ace (Before/After) 17-18 (0) 

0-3 = Advance form the specified number of 
spaces before and/or after printing, 
respectively. 

"lb =0 (see exception for CR lines, above) 



Skip (Before/After) 19-20, 21-22 (O) 

01-12 = Advance the form to the next 

carriage-control-tape punch in the 
specified channel before and/or 
after printing, respectively. 

00=bl) = No skip (see exception for OE 
lines, above) 



NOTES on Forms Control 






o 



= Tctal-time output. 



1. Leave blank in AND line 

2. Space/After or Skip/After has through- 
put advantage over Space/Before or 
Skip/Before. 

3. If Space/Before and Skip/Before both 
specified: Skip is executed, followed 
by Space. 
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4. 


If S 




cifi 




is e 


5. 


For i 




entr 


6. 


Prin 




abov' 




cato 




tota 




cato 




nag 




if 




file 



pace/After and Skip/Af 
ed: Only the Space/Af 
xecuted . 

compatibility with oth 
y in cols. 17-22 regu 
ting at or below chann 
e next channel 1, turn 
r at end of cyle segme 
1 output respectively) 
r if upper feed of Dua 
e. Advance to channel 
F (or OV) not specifie 
-identification Output 



ter both spe- 
ter operation 

er RPGs: One 

ired. 

el 12, but 

s on OF indi- 

nt (detail or 

— or OV indi- 

1-Feed Car- 

1 automatic 
d in any 

Indicators. 



Output Indicators 23-31 ( ) 

Three identical subfields in AND rela- 
tionship: cols. 23-25, 26-28, 29-31. 
Only the first subfield is described here. 
One to three indicators may be entered to 
condition performance of the output opera- 
tion; additonal AND subfields, and OR rela- 
tionships, available through AND and OR 
lines (see cols. 14-16). Status of the 
indicators not affected by specification 
here. 



Output Indicators 23-31 ( ) 



As described under Output Indicators, 
above (File Identification) , with these 
differences: 



1. No AND lines 



2. No OR lines 

3. Entries condition only output of the 
field or constant described in that 
line, and the output is also subject to 
Output Indicators in the file 
identification. 

4. Entry of OF (or OV) does not transfer 
the output to overflow time — .merely 
makes it subject to the status of the 
overflow indicator at output time. 

5. Used with field PAGE, do not condition 
its output, but cause initialization to 
1 before output. 



^^jr 



Entire' field blank 

£>xx (xx = any 
indicator) 



Nxx 



f>OF (or t)OV) 



Execute operation each 
program cycle. 



Field Na me 32-37 (0) 



Perform thi 
only if tha 
is on . 
Perform thi 
only if tha 
is off. 
Perform thi 
only at ove 
and provide 
(or OV) ind 
then on, as 
any other 
cators spec 
this (or an 



s output 
t indicator 

s output 
t indicator 

s output 
rflow time; 
d the OF 
icator is 

well as 
utput Indi- 
ified for 

AND) line. 



CAUTION: If no conditioning indicator is 
specified, or only IP, or only Nxx for 
indicators that are off initially, or bxx 
for indicators that are on initially (Zero- 
or-Blank), the output is performed before 
the first card has been read. 



Field Descripti on and Control 23-47 (0) 

One line describes one output field 
within the file-identification group 
— separate line reguired for card punching 
and card document-printing. 
Field-description lines follow immediately 
beneath the pertinent file identification — 
field description must not be on same line 
as file identification. 



O 

^^M 



Any field name def 
Extension, or Calc 
Field name PAGE fo 
numbering. Left-j 
be listed in the o 
appear in the outp 
names: ALTSEQ, CO 
blank if constant 
Either field name 



ined in Input, File- 
ulation Specifications, 
r automatic consecutive 
ustify. Fields need not 
rder in which they are to 
ut file. Prohibited 
NTD(x), PAGEx (x) . Leave 
specified (cols. 45-70) . 
or constant reguired. 



Zer o Suppress 38 (0) 

'B = Alphameric field; or 

= Constant specified (cols. 32-37 

blank) ; or 
= Edit word specified (cols. 45-70); or 
= Packed Field (P in col. 44) ; or 
= Output to include any leading zeros and 

low-order-position zone. 
Z = Any zone or leading zeros removed from 

output. 

Permissible only for numeric fields. 



Blank After 39 (0) 

"b = Field contents (or constant — cols. 
45-70) undisturbed after output 

B = Field (or constant) cleared as data 

moved to output-storage area. (Numeric 
field: 0; alphameric: 15.) Field or 
Resulting Indicator assigned to Zero- 
or-Blanks turns on. 
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End Position in Output Record 40-43 (R) 

Enter number of rightmost position in 
output file (forms print position, card 
column, or card-interpret position). 
Right- justify entry; leading zeros unneces- 
sary (col. 40 always ^ or 0). 

CAUTION: Allow for expansion of field by 
edit word. 

Output to card file. Col. 41 establishes 
whether punching or interpreting: 

b = = Punching 

1-6 = Print head to be used for 
interpreting.- 



Packed 4 4 (0) 

f> = Data to be output in standard (non- 
packed) format; or 
= Field not defined as numeric; or 
= Constant 

P = Output of data, from field defined as 
numeric, to be in packed format. The 
output data is then of length 
L = (n+1+E)/2, where 

n = digit capacity of field; and 
E = 0, if n is odd, and 
= 1, if n is even 



Constant 45-70 (0) 

Left- justify . Any EBCDIC characters 
that are to appear in the output record are 
specified here, enclosed in apostrophes. 
(Two successive apostrophes within the con- 
stant appear as one apostrophe in the out- 
put.) Distinguished from edit word by 
absence of field name (i.e., cols. 32-37 
are blank) . Zero Suppress (col. 38) and 
Packed Field (col. 44) must be blank. 



Mit_Wprd 45-7 (0) 



Left- 
enclosed 
char act e 
record ; 
Distingu 
field na 
in the 1 
must con 
except i 
(col .. 3 
be blank 



justify. Any 

in apostrophe 
rs appear as s 
others serve s 
ished from con 
me (cols. 32- 
ine must be de 
tain valid dig 
n sign positio 
8) and Packed 



EBCDIC characters, 
s. Seme of the 
uch in the output 
pecial functions, 
stant by presence of 
37) . The field named 
fined as numeric, and 
its (no hex. A-F, 
n) . Zero Suppress 
Field (col. 44) must 



Abbreviated rules for edit words. 

1. Body of edit word = Exact number of 
positions allowed for data digits, 



spac 

amon 

if $ 

digi 

ing 

posi 

= 



& = 
$ at 



;0 = 



es, and any 
g — but not 

symbol. B 
t — with pos 
0--from cor 
tion. 

Leading zer 

edit-word c 

first signi 

through thi 

leading zer 

edit word i 

constant ch 

pressed if 

or * in edi 

Space in ou 

extreme le 

record pos 

handling o 

Floating $ 

rightmost 

(0-entry) 

Asterisk p 

leading ze 

and any co 

t-ers to th 

digit. Pr 



constant data desired 
following — them, plus 1 
lank is replaced by 
sible exception of lead- 
responding field 






os, a 
harac 
fie an 
s poi 
o is 
s spe 
aract 
field 
t-wor 
tput 
ft = 
ition 
f lea 
symb 
leadi 
point 
rotec 
ros t 
nstan 
e fir 
eclud 



nd an 
ters 
t dig 
nt. 
suppr 
cifie 
ers ( 
all- 
d bod 
recor 
$ in 
, reg 
ding 
ol = 
ng 



y co 
prec 
it, 
At 1 
esse 
d, a 
exc . 
zero 

Y- 

d 

that 

ardl 

zero 

$ re 

thro 



nstant 
eding 

suppressed 
east one 
d if an 
11 O's and 
$) sup- 
and no 



output 
ess of 
s. 

places 
ugh this 



tion = * replaces 
hrough this point, 
t edit-word charac- 
st significant 
es $. 



Any EBCDIC character (except T> or &) in 
the edit-word body — including comma and 
decimal point — to right of first signi- 
ficant digit or end of zero suppres- 
sion, appears identically in the corre- 
sponding location of the output record; 
to the left of that/ point, it is 
suppressed. 



Presence of edit word removes low- 
order-position zone from output. 

Status portion of edit word = Positions 
to right of body through CR or - sym- 
bol, used to identify negative values. 
If no CR or - to right of body, there 
is no status portion. 
15 or S = ti in output record 
CR or - = CR or -, respectively, in 

output record when data 

negative 
= b in output record, when data 

not negative. 

Expansion of edit word = Positions (if 
any) to right of status portion; if no 
status portion, then to right of body. 
Any EBCDIC character (incl. S and 
space) appears identically in output 
record . 



Sterl ing Sign Position 71-74 (O) 

leave blank unless processing Sterling- 
currency amounts. (Refer to SRL publica- 
tion IB M System/360 Model 20, Sterling Cur- 
rency Processing Routines , Form C26-3605.) 



o 
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Op. 
Class 






Factor 1 


Operation 
Code 


Factor 2 


Result 
Field 


Comments 








Possibilities Presented Algebraically 




_o 

o 

..§ 

J° 
SS 

6\l 

.y"5 

Ij 

.t: o 

i. w 


Add Factor 2 to Factor 1 


a (ISO 


ADD 


b(N) 


c(N) 


a+b=c/a+a=2a/b+b=2b/a+c=c '/ 
c+b=c'/c+c=2c 




'Set Result Field to zero; then add Factor 2 




Z-ADD 


b(N) 


c(N) 


0+b=c'/0^c=c 


Factor 2 may be c 


Subtract Factor 2 from Factor 1 


a(N) 


SUB 


b(N) 


c(N) 


a-b=c/a-a=0/b-b=0/a-c=c / 
C'4j=c /c-c=0 


c-c=0 is the most 
efficient method to 
set a field to zero 


Set Result Field to zero; then subtract 
Factor 2 




Z-SUB 


b(N) 


c(N) 


0-b=c'/0-c=-c 


0-c=-c: best method 
to reverse sign 


Multiply Factor 1 by Factor 2 


a(N) 


MULT 


b(N) 


e(N) 


axb=c/axa=a /bxb=b /axc=c ' / 
cxb=c /cxc=c 




Divide Factor 1 by Factor 2 


a(N) 


DIV 


b(N) 


c(N) 


a+b=c/a+a=l/b+b=l/a+c = c / 
c+b=c /c+c=l 


No Half-Adjust if 
MVR follows 


Move Remainder of preceding DIV to a 
Result Field 




MVR 




c(N) 


Must follow immediately after DIV without Half-Adjust 
and with same Indicators. 


TJ 

0) 

J 

o 

O 

c 

J 8 

si 

o — 
O.E 

J§ 

2 a: 


Move Factor 2 into Result Field - 
right-justified 




MOVE 


b (A/N) 


c (A/N) 


No decimal alignment performed. If Factor 2 shorter: Left 
positions of result field unchanged. Excess left positions of 
a longer Factor 2: Not moved. 


Move Factor 2 into Result Field - 
left-justified 




MOVEL 


b (A/N) 


c (A/N) 


No decimal alignment performed. If Factor 2 shorter: Right 
positions of result field unchanged. If Factor 2 longer: 
Excess right positions not moved, except for the sign if the 
result field is numeric, 


9) 

c 
o 
N 

s 

2 


from low-order position of Factor 2 
to low-order Result position 




MLLZO 


b (A/N) 


c(A/N) 




from high-order position of Factor 2 
to high-order Result position 




MHHZO 


b(A) 


c(A) 




from low-order position of Factor 2 
to high-order Result position 




MLHZO 


b (A/N) 


c(A) 




from high-order position of Factor 2 
to low-order Result position 




MHLZO 


b(A) 


c (A/N) 




COMP & TESTZ: 
At least one 
Resulting Indicator 


Compare Factor 1 to Factor 2 


a (A-N) 


COMP 


b (A-N) 




Numeric fields decimal -aligned; missing positions treated as 
zeros. Alphameric fields left-aligned; missing positions 
treated as blank. Numeric compare is algebraic; alphameric 
is logical EBCDIC. 


Identify zone in high-order position of 
alpha. Result Field 




TESTZ 




c(A) 


A Resulting Indicator assigned to Blank is on at start & follow- 
ing Blank -After 


a> 

1/1 _c 


Turn on one, two, or three specific 
indicators 

Turn off one, two,or three specific 
indicators 




SETON 
SETOF 






Specify one, two, or three Resulting Indicators 


Branching: 
No Resulting 
Indicators allowed 


Branch to another RPG calculation 

specifications line 

Identify line as destination point of GOTO 

instruction(s) 

Branch to an external B.A.L. routine 

Identify RPG field for use in external 

routine 


name 


GOTO 

TAG 

EXIT 
RLABL 


name 
name 


name 


One to six characters " 
One to six characters 
One to four characters 
One to four characters . 


First character alphabetic; 
remainder alphabetic or numeric. 
RLABL may also be 
TABxor INxx. 


a. 

•2 J 


Search argument table for value that bears 
to search argument the relationship speci- 
fied by Resulting Indicator(s). If a function 
table is specified, corresponding function is 
located . 


argument 
a (A-N) 


LOKUP 


argum't table 

TABx(x)(x) 

(A-N) 


function table 
(optional) 
TABx(x)(x) 
(A/N) 


No decimal alignment performed; At least one Resulting 
Indicator needed. Do not assign Resulting Indicator to 
both High and Low . Table should be in sequence if 
Indicator in High or Low. 


LEGEND: (A) = Alphameric (A/N) = Alphameric or Numeric 

(N) = Numeric (A-N) = Alphameric or Numeric, but 
both fields must be alike 


a or b = Field or literal 
c = Field 






Figure G1. Calculation Operations Summary 
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Legend 
♦ NOTE: 



-Entry Rcq.uired.|Nlax. Length 
-Entry Optional Jof Entry 



(A) « Alphameric 

(N) "Numeric 

(A/n1- AorN 

&VN)» ElUicr.twt both some 



Zero/ 
Plus M'MMtt Blank 



f Resulting Indicators not related to column 
(.headings; at least one required: •*•• 



Plus/ 



Resulting 1 . . 

Indicators J "-Optionol 



Mian 
At least one req,uired-»o<a-a 



Minus/ 
Law 
ooo 



Blank/ 
o-oa 



The entries designated as required in Field Length, and Decimal Positions are necessary only if the 
associated Result Field is not defined elsewhere- 



Figure G2. Fields Pertinent tc Each Operation Code 
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CARD RPG OBJECT PROGRAM - GENERAL FLOW 



\ Ree 

©A- 




Indicators (Normal U») 



Reod into Input /| NOTf: Al Shirt, 
Area from / | Reod one Card I 
File Just / I From Each File | 
Processed f j (If Multi-File Job) j 




Clear Card-Type 
Resulting Indicators 
and IP. HI, H2. . 
11-19, IR. 
(Turn on 10, If Off) 



4H» 







Perform Total -Time 
Calculations. Turn 
Calc. Resulting 
Indicators On/Off 



J Bypassed 1st Card. I 

I If Control Field(s) on ! 

| Input Specs, bypassed I 

thru 1st Card of Type I 

with Control Fieldjs). < 

J 



c 




Mow Data from 
Input Work Area 
to Proceii Area. 
Turn Field 
Indicator! On/Off 



G>— 



Perform Detail-Time 
Calculation!. Turn 
Calc. Resulting 
Ind tea tort On/Off 



*H» 



(HI 



o 



Figure G2. EPG Prcqrara logic 
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APPENDIX H — RPG PROGRAM LISTING 







During generation of an object program, 
RPG prints a listing that contains: 

• The complete image of every specifica- 
tion card in the RPG scu re e- prog ram 
deck, one card tc a line. 



card (s) to which the message refers. (A 
consecutive card number is assigned by RPG 
to each source card. In the program list- 
ing, it precedes the card seguence number 
assigned en the programmer's specification 
form.) 



• A consecutive number, as counted by RPG 
during reading of the source deck — 
printed to the immediate left cf each 
source-card image. 

• A signal — the letter "S" — to the left 
cf the consecutive number, whenever the 
contents of columns 1-5 (page and line 
seguence number) of a specif icaticn 
card represent a repetition cr step- 
down in EBCDIC seguence frcm the pre- 
ceding card. This does not interfere 
with continuation of program genera- 
tion. ("S" isnet printed the first 
calculation specifications line. ) 

• Messages that reflect the status of. 
cb ject-program generation, signal all 
kinds cf errors, and document cere- 
storage assignments. 

A specimen of an RPG program listing is 
included in the SRL publication IBM System/ 
3 6 0_ M o d el. 20,. Report Pro gram Generator for 
Pun ch-C~ard Equipment, Operating Procedures, 
Form C26-1800. 



MESSAGES DURING RPG GENERATION OF OBJECT 
PROGRAM 



RG 120 



Program Identification: 
RG (for RPG) 

Serial Number: 
unique number for 
each message 

♦Significance Code 



**Type of Specification 
Card to which Principally 
Applicable 



Message 



♦ Significance Code 

A = ACTION 

Operator action is required before system is restarted. 

C = CAUTION 

An abnormal - though possibly deliberate - condition exists. 
Corrective action is required only if the condition is unintentional. 

D = DECISION 

The user must decide on one of several ways to continue processing. 

E = ERROR 

Correction in source program required. 

I = INFORMATION 

Informatory message only. Operator action usually not required. 

W = WAITING 

System can proceed no further until errors have been corrected. 

**Type of Specifications to which Principally Applicable 

F = File Description 

E = File Extension 

I = Input 

O = Output-Format 

C = Calculation 



Message Identific ation 

Each message is preceded by a unigue 
Message-Identification Cede. Frcm left to 
right, the cede represents: 

Program Identification = RG 
Message Serial Number — three digits 
Significance Code — one letter 
Type cf specification card to which the 
message primarily applies — one letter 
(not pertinent to all messages) . 

Figure H1 portrays the message- 
identif icaticn format, and lists the 
related cedes with their meanings. 

Card_Numter 

The words CARD NUMBER are printed at the 
end cf most messages, followed by the con- 
secutive number (s) of the specification 



Figure H1. Format of Message- 
Identification Code 

Messages 

The informational and diagnostic messages 
are listed below, in message-serial-number 
order. Each message is preceded by its 
Identification code. 

The phrases shown in upper-case 
characters represent the actual RPG 
message. 

Sentences in lower-case letters give 
supplementary information that is not 
printed in the program listing. 



RG001 



360/20 RPG LISTING. 

RPG prints this heading if 
the RPG source deck starts 
with the RPG Control Card. 
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RG002 



STORAGE POSITIONS. 

This message is followed by 
the core storage capacity 
specified in the RPG Con- 
trol Card (Card H) for the 
systems used to generate or 
execute the program. If 
different capacities are 
specified, the smaller is 
used . 



RG017 E F COLUMNS 40-46 CONTAIN AN 
INVALID DEVICE. 

RG018 E F FILE' NAME OR DEVICE IS 
MULTIPLY DEFINED. 

The same file name (cols. 
7-14) is assigned to more 
tha,n one device code (cols, 
40-46) , or the same device 
code is associated with 
more than one file name. 



RG00 3 



RG00 4 



RG005 



RG006 



ERROR IN STORAGE MAGNITUDE. 

This message is associated 
with halt D12. It indi- 
cates invalid entries in 
cols. 7-9 or 12-11 of the 
RPG Control Card (Card H) . 



NO CONTROL CARD. 

This message is associated 
with halt D11- It indi- 
cates that the source deck 
is not preceded by an RPG 
Control Card (Card H.) 

COL. 6 INCORRECT, CARD IS 
BYPASSED. 

This message fellows the 
image of the RPG source 
card to which it refers. 

PROGRAM TOO EIG. 

This message is associated 
with halt D13 



RG031 



RG032 



RG033 



E E 



E E 



E E 



THE TABLE NAME IS INCORRECTLY 
SPECIFIED OR IS MISSING. 

The table name in columns 
27-32 and/or columns 46-51 



a) 

b) 



c) 



is mxssxnq, or 
includes special charac- 
ters or embedded blanks, 
or 
does not begin with TAB 



THE TABLE NAME HAS NOT BEEN 

REFERENCED. 

The table name defined in 
the file extension specifi- 
cations is not referenced 
in the calculation 
specifications. 

INCORRECT SPECIFICATION OF 
NUMBER CR LENGTH OF TABLE 
ENTRIES, OR THE PRODUCT OF 
BOTH IS LARGER THAN 80. 



RG010 C F THE FILE NAME IS NOT 
REFERENCED. 

EG0 11 E F FILE DESCRIPTION SPECIFICA- 
TIONS ARE MISSING. 

File description cards must 
precede all other specifi- 
cation cards in the RPG 
source deck. 

RG012 E F THE FILE NAME IS INCORRECTLY 
SPECIFIED OR IS MISSING. 

RG013 E F FILE TYPE ENTRY (COL. 15) IS 
NOT I, C, OR C, OR IS MISSING. 

RG014 E F FILE TYPE (COL. 15) AND 
DEVICE (COLS. 40-46) ARE 
INCOMPATIBLE. 



RG034 E E THE SAME TABLE IS DEFINED IN 

FILE EXTENSION AND CALCULATION 
SPECIFICATIONS WITH DIFFERENT 
FIELD LENGTHS AND/OR DECIMAL 
POSITIONS 



RG041 E I INPUT SPECIFICATIONS ARE 
MISSING. 

Input specification cards 
must precede output speci- 
fication cards. 

RG042 E I MATCHING FIELD SPECIFIED, BUT 
NO SEQUENCE IN .FILE 
DESCRIPTION. 

RG043 E I THE FILE NAME IS MISSING, NOT 
DEFINED, CR NOT 
LEFT-JUSTIFIED. 



^^farir 



RG015 E F SEQUENCE (COL. 18) DOES NOT 
CONTAIN A, D, OR ELANK. 

RG016 E F SEQUENCE (CCI. 18) IS NOT THE 
SAME FOR ALL INPUT FILES. 
When there are multiple 
input or combined files, 
all must have the same 
seguence specified. 



RG044 E I THE FILE NAME DOES NOT REFER 
TO AN INPUT CR COMBINED FILE. 

RG045 E I CARD-TYPE SEQUENCE (COLS. 
15-16) ELANK CR INVALID. 

Under one common file name, 
a card type with numeric 
seguence specification is 
followed by a card type N 



Appendix H — RPG Program Listing 329 



with alphabetic sequence 
specification, or the 
numeric sequence specifica- 
tion for card types is not 
in ascendinq order, or the RG058 E I 
field is blank. 

RG046 I I ENTRIES IN NUMBER AND/OR 
OPTION (COLS. 17-18) ARE 
INCORRECT. 

Card-type sequence checkinq 

is specified in columns RG059 

15-16, but columns 17-18 

contain an incorrect entry; 

or, the entries in cols. RG060 

15-16 are alphabetic, but 

cols. 17-18 are not blank. 



E I 



E I 



Card is blank in cols, 
and 18. 



17 



STERLING FIELD IS SPECIFIED 
WITH INCORRECT DECIMAL LENGTH. 
Either the field is defined 
as alphameric, or Decimal 
Positions is qreater than 
4. 

STERLING FIELD IS SPECIFIED TO 
BE IN PACKED FORMAT. 

INCORRECT INDICATORS. 

Resultinq and/or Field 
Indicators are invalid. 






RG047 E I ERROR IN RECORD IDENTIFICATION 
CODES (COLS. 21-26, 28-33, 
35-40) . 

RG048 E I RECORD IDENTIFICATION AND 

FIELD DESCRIPTION APPEAR IN 
THE SAME SPECIFICATION CARD. 
An input specification card 
contains entries in columns 
7-42 and columns 43-70. 

RG049 E I A RECORD IDENTIFICATION SHOULD 
PRECEDE THIS SPECIFICATION. 

RG051 E I FIELD LOCATION ENTRIES (COLS. 
44-51) ARE INVALID, OR THE 
LENGTH OF A NUMERIC FIELD 
EXCEEDS 15 POSITIONS. 

RG052 I I THE FIELD WAS PREVIOUSLY 

DEFINED WITH DIFFERENT LENGTH 
OR DECIMAL ICSITICNS. 

RG053 E I THE FIELD NAME IS MISSING, NOT 
LEFT-JQSTIFIEr, BEGINS WITH 
TAB OR CONTD, CONSISTS OF ALT- 
SEQ, OR CONSISTS OF PAGE FOL- 
LOWED BY ONE CR TWO 
CHARACTERS. 

RG054 E I PLUS OR MINUS INDICATORS ARE 
SPECIFIED FOR ALPHAMERIC 
FIELD. 

RG055 E I THE MATCHING FIELD SPECIFICA- 
TION (COLS. 61-62) IS 
INVALID. 

RG05 6 E I INDICATOR SPECIFIED IN FIELD- 
RECORD RELATICN (COLS. 63-64) 
IS NOT A RESULTING INDICATOR 
OF AN ASSOCIATED CARD TYPE. 

RG057 I I STERLING FIELE SPECIFICATION 
IS INCORRECT. 

The entries are invalid; or 
the Sterlinq field (cols. 
71-74) contains specifica- 
tions, but the RPG Control 



RG061 



E I 



AN ALPHAMERIC FIELD IS SPECI- 
FIED TO BE IN PACKED FORMAT. 



RG071 

RG072 
RG073 

RG074 
RG075 



E 



E 



E 



E 



E 



THE FILE NAME IS MISSING, NOT 
DEFINED, OR NOT 
LEFT-JUSTIFIED. 

THE FILE NAME DOES NOT REFER 
TO AN OUTPUT OR COMBINED FILE. 

FILE IDENTIFICATION AND FIELD 
DESCRIPTION APPEAR IN THE SAME 
SPECIFICATION CARD. 



TYPE (COL, 
OR T. 



15) IS NOT H, D, 



RG076 E 
RG077 E 

RG078 E 



FILE IDENTIFICATION AND FIELD 
DESCRIPTION SPECIFICATIONS ARE 
NOT IN CORRECT SEQUENCE RELA- 
TIONSHIP, OR ALL DETAIL OUTPUT 
DOES NOT PRECEDE ALL TOTAL. 

INCORRECT INDICATORS. 

INVALID FORMS CONTROL SPECIFI- 
CATIONS (COLS. 17-22). 

MULTIPLE FILE- IDENTIFICATION 
LINES FOR ONE OUTPUT DO NOT 
HAVE INDICATORS SPECIFIED. 
CHECK THIS AND PRECEDING CARD. 
There are AND and/or OR 
lines for the output, but 
not all the File- 
Identification Specifica- 
tions lines include Output 
Indicators. 

THE FIELD NAME IS MISSING, IS 
NOT LEFT-JUSTIFIED, BEGINS 
WITH CONTD, CONSISTS OF ALT- 
SEQ, OR CONSISTS OF PAGE FOL- 
LOWED BY ONE OR TWO 
CHARACTERS. 



RG082 E THE FIELD IS UNDEFINED. 



RG081 E 



o 
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RG083 E C INCORRECT APOSTROPHES IN CON- 
STANT OB EDIT WCRC. 

RG084 E END POSITION (CCLS. 40-43) IS 
MISSING OR INVALID, IS SMALLER 
THAN THE SIZE OF THE FIELD, 
CONSTANT, OR EDIT WORD, OB IS 
INCOMPATIBLE WITH THE OUTPUT 
FILE OR DEVICE. 

RG085 E C BOTH ZERO SUPPRESS AND A CON- 
STANT OR EDIT WORD ARE 
SPECIFIED. 

RG086 E ZERO SUPPRESS OR AN EDIT WORD 
SPECIFIED FCR ALPHAMERIC 
FIELD. 

RG087 E STERLING FIELD IS INCCBBECTLY 
SPECIFIED. 

The entries are invalid; or 
the Sterling field (cols. 
71-74) contains specifica- 
tions, but the RPG Control 
Card is blank in cols. 19 
and 20. 

RG088 E STERLING FIELD IS SPECIFIED 

WITH INCORRECT DECIMAL LENGTH. 
Either the field is defined 
as alphameric, or Decimal 
Positions is greater than 
4. 

EG 08.9 E STERLING FIELD IS SPECIFIED TO 
BE IN PACKED EORMAT. 

RG09 E EDIT WORD HAS INCORRECT LENGTH 
OR WAS PREVIOUSLY USED WITH A 
FIELD OF DIFEERENT LENGTH. 



\J 



RG101 E C THIS FIELD IS UNDEFINED CE 
INCORRECTLY SPECIFIED. 

This message is followed by 
the headings 

FACT.1 FACT. 2 RESULT F. 
and the consecutive number 
of the affected card is 
printed below the appropri- 
ate heading. 

RG10 2 E C THE FOLLOWING FIELDS SHCULD BE 
BLANK FOR THE OPERATION. 

This message is followed by 
the headings 

FACT.1 FACT. 2 RESULT F. 
and the consecutive number 
of the affected card is 
printed below the appropri- 
ate heading. 

RG103 E C THE FOLLOWING ENTRIES ARE 

BEQUIRED, BUT MISSING CE NOT 
LEFT-JUSTIFIED. 



RG104 

RG105 
RG106 



RG1.07 



RG108 



RG109 



EG 110 



RG111 



RG1 12 



RG113 



RG114 



RG115 



E C 



This message is followed by 
the headings 

FACT.1 FACT. 2 RESULT F. 
and the consecutive number 
of the affected card is 
printed below the appropri- 
ate heading. 



DETAIL CALCULATION IS ENCOUN- 
TERED AFTER TOTAL CALCULATION. 



E C OPERATION CODE INVALID. 

E C RESULTING INDICATOR IS 

REQUIRED, BUT NOT SPECIFIED. 
A COMP, LOKUP, TESTZ, SETON 
or SETCF operation has been 
specified, but a resulting 
indicator has not been spe- 
cified in columns 54-59. 

E C RESULTING INDICATORS ARE SPE- 
CIFIED, BUT NOT PERMITTED. 
A Move, Move Zone, EXIT, 
RLABL, GOTO, or TAG opera- 
tion has been specified 
with resulting indicators. 

E C RESULT FIELD CONTAINS A 
LITERAL. 

The specification in 
columns 43-48 is incorrect. 

E C AN IMPERMISSIBLE OPERATION IS 
SPECIFIED BETWEEN ALPHAMERIC 
AND NUMERIC FIELDS. 

E C FIELD LENGTH OF FACTOR 1 AND 
FACTOR 2 DIFFERS IN A LOKUP 
OPERATION. 

E C A LCKUE OPERATION IS SPECIFIED 
AND THE NAME IN FACTOR 2 OR 
RESULT FIELD DOES NOT BEGIN 
WITH TAB. 

C C GOTO AND TAG ARE NOT IN THE 
SAME CALCULATION TIME. 
GOTO is specified for 
detail time and TAG is spec- 
ified for total time, or 
vice versa. 

This is only a warning 
message. 

E C A TAG IS SPECIFIED WITH INDI- 
CATORS OR RESULTING 
INDICATORS. 

E C THE SAME LABEL APPEARS IN MORE 
THAN ONE TAG STATEMENT. 

E C THE RESULT FIELD WAS PREVIOUS- 
LY DEFINED WITH DIFFERENT 
LENGTH OR DECIMAL POSITIONS. 
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RG116 E C SPECIFIED LENGTH OF ALPHAMERIC 
RESULT FIELD EXCEEDS 256 POSI- 
TIONS, OR NUMERIC RESULT EIELD 
EXCEEDS 15 POSITIONS, OR NUM- 
BER OF DECIMAL POSITIONS SPEC- 
IFIED EXCEEDS FIELD LENGTH. 



RGH7 C C RESULT FIELD MAY NOT EE LARGE 
ENOU.GH. 

The nature of the operation 
can produce a result larger 
than size of result field. 
This is cnly a warning 
message. 

RG118 C C THE FIELDS IN THESE OPERATIONS 
DO NOT OBEY SIZE RESTRICTIONS. 

RG119 E C INCORRECT INDICATORS. 

Indicators and/or Resulting 
Indicators are invalid. 

RG120 I C THE DIVIDE OPIRATION IS SPECI- 
FIED WITH HALI ADJUST AND FOL- 
LOWED BY A MOVE REMAINDER, OR 
THE MOVE REMAINDER IS NOT PRE- 
CEDED BY A DIVIDE WITH THE 
SAME INDICATORS. 

RG12 1 E C RESULT FIELD UI.ME BEGINS WITH 
TAB, BUT THE CPERATION IS NOT 
LOKUP OR RLAEI. 

RG122 C C HIGH/LOW INEICATOE FOR IOKUP 
BUT NO TABLE SEQUENCE 
SPECIFIED. 

This is cnly a warning 

message. 

RG123 C C FUNCTION TAELE SHOETEE THAN 
ARGUMENT TAELE. 

This is only a warning 
message 



RG13 1 E MULTI-FILE PROGRAM, EUT NC 
MATCHING FIELDS SPECIFIED. 

RG132 E I THE OVERALL LENGTH OF CONTROL 
OB MATCHING FIELDS IS LARGER 
THAN 144. 

RG133 E I THE OVERALL LENGTH OF MATCHING 
FIELDS AND/CR CCNTRCL FIEIDS 
FOR ONE LEVEL IS NOT CONSTANT 
FOR ALL PERTINENT CARD TYPES. 

RG134 E I A MATCHING EIELD IS MULTIPLY 
DEFINED WITHIN A RECORD-TYPE 
GROUP, BUT THE ENTRIES IN 
FIELD-RECORD RELATION ARE THE 
SAME. 



RG135 E I CONTROL AND/OR MATCHING FIELDS 
INCORRECTLY SPECIFIED 



RG136 E C THE FOLLOWING NAMES ARE USED 
AS FIELD NAMES AND IN TAG OR 
GOTO STATEMENTS. 

This message is followed by 
the name (s) . 

RG137 C UNREFERENCED FIELD NAMES. 

The message is followed by 
the names of all fields 
that are defined but not 
referenced . 

This is only a warning 
message. 

RG138 C I THE CONTROL FIELDS OF ONE 

LEVEL ARE SPECIFIED BOTH AS 
NUMERIC AND ALPHAMERIC. 

This is only a warning 
message. 

RG141 C SAME FIELD WITH DIFFERENT 
BLANK/ZERO INDICATORS, AND 
BLANK-AFTER IS SPECIFIED. 

This message is followed by 
the field name together 
with the blank/zero indica- 
tor that is turned on by 
Blank-After. 

This in only a warning 
message. 

RG142 E UNDEFINED INDICATORS. 

Indicators are used as con- 
ditioning indicators but 
are nowhere assigned as 
Resulting or Field Indica- 
tors. This message is folr- 
lowed by a list of all 
undefined indicators. 

RG143 E C INCORRECTLY DEFINED INDICATOR 
LABELS. 

INxx in RLAEL does not 
identify a valid indicator. 
This message is followed by 
a list of all incorrectly 
specified indicator labels. 

RG144 C UNREFERENCED INDICATORS. 

The message is followed by 
a list of all indicators 
that are defined but net 
referenced. 

This is only a warning 
message. 






■\J|l jkj 



RG150 



END OF DIAGNOSTICS 
NO ERRORS 
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RG151 D END OF DIAGNOSTICS 

REVIEW CAUTIONS 

This message is associated 
with halt D0 1 - It indi- 
cates that--while there 
were no known errors in the 
source deck — abnormal con- 
ditions, as defined by Cau- 
tion messages (Significance 
Code C) , exist. 

EG 151 W END OF DIAGNOSTICS 

ERRORS IN SOURCE DECK 

This message is associated 
with halt D14. It indi- 
cates that known errors, as 
defined by Error messages 
(Significance Code E) , 
exist in the source deck. 



RG165 



program. Their core 
storage addresses are 
listed in the column 
ADDRESS in hexadecimal 
notation. The remark 
NUMERIC, ALPHAMERIC, or 
EDIT WORD appearing in the 
column TYPE signifies the 
type of the constant or 
literal. The column ACTUAL 
contains the image of the 
constant or literal as 
defined in the specifica- 
tion forms. (Numeric 
literals are represented in 
hexadecimal notation.) 

STARTING ADDRESSES OF RPG 
ROUTINES 



ADDRESS 



NAME 






RG161 I INDICATORS. 

This message is followed by 
a list of all indicators in 
which each indicator is 
preceded by its core 
storage address in hexade- 
cimal notation. 

RG162 I DATA FIELDS 

ADDRESS | NAME| LENGTH IN BYTES | 

DEC. POS. |TYPE 

This message is followed by 
a list of all defined 
fields in the following 
order: 

Alphameric fields, Numeric 
fields, Tables. In the 
column ADDRESS, the core 
storage addresses of the 
data fields are listed in 
hexadecimal notation. The 
column TYPE indicates 
whether the field is alpha- 
meric or numeric. 

RG163 I CONTROL FIELDS 

ADDRESS | CONTROL LEVEL| 
LENGTH IN BYTES 

This message' is followed by 
a list of all assigned con- 
trol levels and matching 
fields. The column ADDRESS 
contains the addresses of 
the control fields in hexa- 
decimal notation. 

RG164 I LITERALS AND CONSTANTS 

ADDRESS | LENGTH IN BYTES| 
DEC. POS. | TYPE | ACTUAL 

This message is followed by 
a list of all constants and 
literals defined in the 



xxxx 



RG166 I 



RG167 I 



o 



INPUT RECORDS 

INPUT FIELDS 

DETAIL CALCULATIONS 

TOTAL CALCULATIONS 

HEADING AND DETAIL LINES 

TOTAL LINES 

OVERFLOW LINES 

OUTPUT FIELDS 

USER'S SUBROUTINES 

TRANSLATE SUBROUTINE 

TRANSLATE TABLE 

STERLING SUBROUTINES 

INPUT AREA FOR IBM 2560 HOPPER 
1 OR IBM 2520 

INPUT AREA F08 IBM 2560 HOPPER 
2 

PUNCH AREA FOE IBM 2560 OR IBM 
2520 

CARD PRINT AREA FOR IBM 2560 

FIRST INPUT AREA FOR IBM 2501 

SECOND INPUT AREA FOR IBM 2501 

PUNCH AREA FOR IBM 1442 

1442 PUNCH ROUTINE 

PRINT ROUTINE 

2560/2520 ROUTINES 

2501 INPUT ROUTINE 
LAST STORAGE POSITION USED 
(EXCLUDING I/O AREAS) 

Only those routines and/or 
data fields appear in the 
program listing that have a 
core storage address 
assigned by RPG. The 
addresses are represented 
in hexadecimal notation. 

GENERATION COMPLETED. 

This message is associated 
with halt DFF. 

TABLES. 

Contents of table cards 
exactly as loaded. 
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APPENDIX I; FORMAT OF THE CPS RPG CONTROL CABD 



THE CPS RPG CONTROL CARD 

The format of the CPS RPG control card is 
as follows: 



Column 



1-5 



7-9 



10 



11 



Entries 



Unused by 



the RPG p rogram. RPG 
ignores entries in these columns. 
However/ any entries will be 
printed in the program listing 
together with the image of the CTL 
card. The programmer may there- 
fore use these columns for addi- 
tional identification. 
Any valid EBCDIC characters 
(including blanks) may be used. 

RPG con trol card ide nt ificatio n 
H = mandatory entry. 

Core sto rage cap a cit y of the sys- 
tem used to generate the object 
program. 



blank 
or 004 = 

008 

012 

016 



4K (4,096 bytes of core 

storage) 

8K (8,192 bytes of core 

storage) 

12K (12,288 bytes of 

core storage) 

16K (16,384 bytes of 

core storage) 



Controls object progra m punch ing . 

blank = the object program is not 

to be punched into cards 

after generation. 
C = the object program is to 

be punched by a 2520 Card 

Read-Punch or a 2520 Card 

Punch. 
M = the object program is to 

be punched by a 2560 MFCM. 

(Blank cards must be in 

hopper 2) . 
P = the object program is to 

be punched by a 1442 Card 

Punch Model 5. 

Contr ols halts and printing of the 
program listing during generation 
of object programs. 

blank = RPG halts if it detects 
any type of programming 
errors during generation. 
The program listing is 
printed. 



B = RPG halts only if it 

detects serious program- 
ming errors that do not 
permit continuation of 
object program generation. 
The printing of the pro- 
gram listing is completely 
bypassed. (This feature 
may be applied to avoid 
using the printer during 
generation of a previously 
tested program) . 

12-14 C ore s t orag e capacity of the sys- 
tem used to execute the generated 
object program. 



torage capacity 
tem used for the 
is assumed to be 
he capacity of 
used during 
as defined in 

bytes of core 

bytes of core 

8 bytes of core 

4 bytes of core 



NOTE: The core storage capacity 
of the executing system may exceed 
the core storage capacity of the 
generating system. In this case 
however, only a part of the 
executing system's core storage 
capacity is used during object 
program execution. 

1 5 Must be left blank . 

16 A ffects stacking seguence of pro- 
cessed cards during object program 
execution of the following prere- 
quisites are met: 

1) A 2560 flFCM is attached to the 
system. 

2) The programmer specified in the 
primary and secondary hopper of 
the 2560 MFCH: 

• an input file, or a combined 
file with cards stacker 
selected under input 
specifications, 

and 

• an output file. 



blank 


= the core s 




of the sys 




execution 




equal to t 




the system 




generation 




column 7-9 


004 


= 4K (4,096 




storage) 


008 


= 8K (8,192 




storage) 


012 


= 12K (12,28 




storage) 


016 


= 16K (16,38 




storage) 



XJ 



o 
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3) The programmer selected cards 
from both files to one common 
stacker . 

I = The input cards read are 
stacked just ahead of 
their associated output 
cards. 

= The output cards processed 

are stacked just ahead of 
their associated input 
card . 

If no 2560 MFCM is attached, RPG 
ignores entries in this column. 
If this column is left blank, RPG 
takes better advantage of the con- 
current processing capability Of 
the Model 20. Therefore entries 
in this column should appear only 
if required by the programmer. 

17-20 Define f orma t of the Sterling 

fields used in Sterling currency 
routines. 

Columns 17-20: blank = format not 
specified. The program contains 
no Sterling currency routines. 

Column 17j 

1 = The input-shillings field is 

in the IBM format. 

2 = The input-shillings field is 

in the BSI format. 

Colu m n 18 : 

1 = The input-pence field is in 

the IBM format. 

2 = The input-pence field is in 

the BSI format. 

Col umn 19: 

= The output-shillings field is 

to be printed only. 

1 = The output-shillings field is 

to be punched in the IBM for- 
mat.- (The field may also be 
printed. ) 

2 = The output-shillings field is 

to be punched in the BSI for- 
mat. (The field may also be 
printed. ) 

Column 2 0: 

= The output-pence field is to 

be printed only. 

1 = The output-pence field is to 

be punched in the IBM format. 
(The field may also be 
printed. ) 

2 = The output-pence field is to 



be punched in the BSI format. 
(The field may also be 
printed.) 



2 1 Specifies us e of the dec i mal poi nt 
or the decimal comma in numeric 
literals. 

(A numeric literal is a fixed 
numeric value used in calculation 
specifications by the programmer.) 

blank = The programmer uses the 
decimal point in numeric 
literals (e.g., 183.55), 

I = The programmer uses the 
decimal comma in numeric 
literals (e.g., 183,55). 

22 Reserves a storage are a as an 
extra input buffer if a 2501 Card 
Reader is attached to the system. 
This generally increases the speed 
of execution, especially if a 2501 
Card Reader Model A2 is attached. 
If no 2501 Card Reader is 
attached, RPG ignores entries in 
this column. 

B = An extra input buffer for 
the 2501 Card Reader is 
established. 

blank = No extra input buffer for 
the 2501 Card Reader is 
established. (May be used 
to reduce core storage 
requirements. ) 

23-25 S pecify the num ber of print posi- 
t ions used during object program 
execution. 



This number must not exceed the 
number of available print 
positions on the attached printer, 
but it may be smaller. Note that 
additioanl print positions, 
whether specified here or not, 
require additional printing time. 
To reduce printing time, the 
entered number should therefore 
not exceed the actual requirements 
during object -program execution. 

If not printer is used, the system 
ignores entries in these columns. 

blank = 100 print positions are 

used during object program 
execution. 
100 = Number of print 
120 = positions per line 
132 = used during object 
144 = program execution 

26-74 Must be left blank. 
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75-78 The co ntents of thes.e colu mns 

a p pear a s program identif i ca tion 
in columns 73-76 of each punched, 
object program card. Any valid 
EBCDIC character may be used. 



If these columns are left blank, 
RPGO will be punched into columns 
73-76 of each object program card. 
(Columns 77-80 of the object pro- 
gram cards are used for consecu- 
tive numbering.) 



o 



o 
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&--Ampersand in edit words 209 

$--Dollar sign ..208 

/* card 39 

— distinction from letter 26 

01-99 indicators 32 

12-overpunch 

Arithmetic operations ......121 

Edit word ....204 

PAGE numberinq 193 

Preventing 12-overpunch 299 

Sign removal 13*7/283 

TESTZ (Test zone) 139 

Zero suppress 194 

Zones 71 

1P indicator 

Description 35 

Point tc note 176 

Absolute addition or subtraction: 
Figure 68, Part III, 
lines 02 and 03 232 

Absolute numeric compare 283 

ADD (add) 127 

Address cards with variable-length 
fields and variable number of 
lines--prcqramming tip 277 

Alphabetic characters--def inition 25 

Alphameric and numeric — same field 
defined twice 
Input specifications 83,80-82 

Alphameric characters 

Data format 269 

Definition 25 

Alphameric fields 

Clearing — programming tip 279 

Data format 269 

Definition 25 

Alphameric literals 

Calculation specifications 108 

Definition 25 

Output-format specifications 198,204 

Altered collating sequence 267 

Alternating-tables format 161,162 

Ampersand (&) in edit words 209 

AND lines in calculation 

specifications — programming tip 281 

AND relationship 

Between indicators, general 32 

Calculation conditioninq 

indicators 105 

Calculation conditioning 

indicators — programming tip 281 

File identification lines 183 

Output indicators (field 

description) 190 

Output indicators (file 

identification) 175 

Record identification codes 

(input) 70 

Space/Skip entries (output) 172 

Stacker select entries ......78 

Argument tables 

File extension specifications 160 



LOKUP operation 150 

Points to note for LOKUP 

operations 157 

Program example 243 

Table look-up operations, general 

. .. 149 

Use of tables 155 

Arithmetic operations 

ADD 127 

Calculation Specifications entry 

(cols. 43-48) 110 

Coding example 129 

DIV 128 

General rules 121 

MULT 128 

HVR 128 

SUB 127 

Z-ADD .... 127 

Z-SUB 127 

Arithmetic overflow 

Detecting — programming tip ...283 

General description ......123 

Assigned standard qraphics .266 

Asterisk protection ...207 

15 symbol 26 

Basic Assembler Lanquaqe (BAL) 
Branching to an external 

subroutine ..141,146 

Functions of general registers 312 

General reference 7 

Programming tips 303,306 

Basic character unit ..265 

Bit (binary digit) 265 

Bit structure of hexadecimal codes 266 

Blank — symbol for 26 

Blank-after 

Output-Format Specifications 

entry (col. 39) ..194 

Relation to constants 198 

Relation to field indicators ......99,101 

Relation to resulting indicators .115,139 

Significance in RPG logic 30 

Blank indicator 

Field indicators 98 

Points to note 176 

Relationship to Blank After ...195 

Resulting indicator .115-117 

Test zone operations ..139 

Blank specifications cards ...50 

Blank specifications lines 50 

Blank trailer card in primary file .....3C7 

Blanking alphameric fields ...279 

Body of edit word 205 

Branching 

Between detail-time and 

total-time calculations 141,143 

EXIT operation code 146 

GOTO operation code .142 

Programming tip (Repetitive 

output) 287 

RLABL operation code 147 
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Significance in RPG logic 31 

TAG operation code .....142 

To an external subroutine 141,146 

Within RPG 141,142 

Eyte , .. ..26 5 

Calculation conditioning indicator . 104-106 

Calculation fields entries, example 

114 

Calculation operations 

Arithmetic operations .121 

Branching 141 

Compare and zone-testing 

operations 137 

Move operations 131 

Setting indicators 140 

Summary 325 

Table look-up operations 149 

Calculation specifications 

Fields pertinent to operation 

codes .326 

Operations summary 325 

Specifications form 103 

Specifications summary 319 

Summary of functions 13 

Card document printing 

At total time 28 

Output-Format Specification 

(cols. 41-4 3) 196 

Program examples 240,253 

RPG function 8 

Sample entries 201 

Card-image format . ..............80 

Card printing--see Card document 
printing 

Card selection--see Stacker 
selection 

Card-type definition 67 

Card-type identification 

Examples 74 

Input specifications entries .67 

Record identification codes 69 

Resulting indicator 69 

Card-type resulting indicator 69 

Card-type resulting indicator dur- 
ing total-time calculations .....280 

Card-type sequence check 

Example 59 

Input specifications entry 

(cols. 15-16) 57 

Nature of the check 63 

Carriage overflow 

Dual feed 188,189 

Overflow, general 36 

Overflew, output specifications ..180,183 

Significance in RPG logic ..29 

Skip 173,174 

Character 

Basic unit in System/360 Model 20 265 

Definition 25 

Entry in Input Specification 70 

Checking that output card-fields 

are blank before output 273 

Clearing alphameric fields 279 

Code structure 265 

Col. (abbreviation) 26 

Collating sequences 

Altered .267 



Standard 266 

Column-binary format 80 

Combined files 

Definition of term 24 

File description specifications 52 

Input specifications 56,77 

Output-format specifications 168,171 

Comments 

Calculation specifications ....118 

File description specifications .......54 

File extension specifications ........162 

Comments cards .50 

Common fields 50 

COMP (compare) 137 

Compare absolute (numeric) 283 

Compare and zone-testing operations 

COMP 137 

TESTZ 139 

Compatibility ..13 

Concurrent processing operations 10,11 

Conditioning indicators 

Branching ..142 

Calculation specifications 

entries . . % 1C4, 10 5 

Dual-feed carriage .....187 

Indicators, general ..32 

Output indicators (Field 

Description) 189 

Output indicators fFile 

Identification) 174 

Overflow indicators 180,182 

PAGE Field-Description line .....193 

Table look-up operations 149,150 

With CCMP operations 137 

With MVR operations 129 

For specific indicators see under 
I ndicators 

Consecutive numbering 

Input specifications 84 

Output-format specifications 192 

Constant data 

Input data, description 83 

Input data, example 85,86 

On same print line as input-card 

data — programming tip 301 

Output data, description 198 

Output data, examples 199-203 

Within the body of an edit word ......208 

Control break 

Defintion 26 

Eliminating false control breaks — 
programming tip 297 

Control card 

Description 12 

Format 334 

Identification 334 

Control fields 

Calculation specifications entry 104 

Definition 26 

Field-record relation 91 

General rules for 88 

Input specifications entry 87 

Split control fields ...88 

Control level 

Calculation specifications entry 104 

Conditioning branching 142 
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Conditioning output ..176 

Definition 26 

Field-record relation 91,92 

Initiation by card type 273 

Input specifications entry 87 

Input specifications, example 93,94 

LO indicator 38 

L1-L9 indicators 36 

LR indicator .....38 

Numeric fields 81 

Control levels on "run-in" 

Proqramminq tip 272 

Special considerations ....37 

Control on a signed field: no 
break between unsigned and plus- 
signed cards—programming tip 275 

Converting units tc dozens 285 

Core-storage requirements 

Control card entry 334 

Processing of ob j€ct-program .255 

Program generation ...................255 

Tips for minimizing ..271 

Creating table-input cards 157 

CR symbol in edit words .205 

Crossfooting (Figure 38) 129,232 

C/Z/D entry (input specifications) 71 

Data formats 

Alphameric fields .269 

Numeric fields 269 

Packed-decimal 270 

Date on same print line as constant 

heading data — programming tip .301 

Decimal alignment 

Arithmetic operations .....121 

Control-level operations 88 

LOKUP operation 150 

Matching-f ields operations 90 

Move operations 131 

Numeric compare operation .....138 

Decimal point 

Constant within edit word 208 

Control card entry 334.1 

Edit word 203 

Zero suppression 207 

Decimal positions 

Calculation specifications ......111 

File extension specifications 161 

Input specifications .....80 

Defining same field as both alpha- 
meric and numeric 83,80-82 

Definition of terms 24 

Delayed forms overflow — programming 

tip 29 2 

Detail printing 

Example 190 

Points to note 174 

Detail time 

Calculation operations ......103 

Output operations 167 

Output "Type" specification 170 

Program logic cycle .26 

Device specification 53 

Diagnostic messaqes .328 

Digit 

Inversion of zone and digit 79 

Of record identification code .........71 

Distinguishing zone punches in 



input fields — programming tip 282 

DIV (divide) 128 

Document printing 

At total time .28 

Output-format specification 196 

Proqram examples 240,253 

RPG function 8 

Sample entries 20 1 

Dollar sign 208 

Double punching: checking that 
output card-fields are blank 

before output — programming tip 273 

Dual definition of input fields 81,83 

Dual-feed carriage 187 

Dual feed carriage output, examples 

188 

EBCDIC 

Code structure 26 5 

Code table 266 

General information 25 

EBCDIC table (Fiqure D1) 266 

Edit word 

Asterisk protection 207 

Body 20 5 

End position of output record 195 

Examples 211 

Expansion ..206, 209 

Output-format specification 203 

Programming tip 300 

Purpose 203 

Rules for forming ....206 

Seqments of edit wcrd .205 

Sign removal ..205 

Status portion 205,209 

Zone elimination ..206 

Editinq pointers 

Printing two-digit field preceded 

by decimal point 300 

Retaining leadinq zeros and con- 
stants, yet removing zones .300 

Eliminating excess control breaks 297 

End-of-f ile specification . . 53 

End position in output record .195 

Error check list 

Calculation specifications ........... 262 

File description specifications 261 

File extension specifications 262 

Input specifications .261 

Output-format specifications ...262 

Egual indicator 

Compare operations ....137 

LOKUP operations ....151 

EXIT (branch to external BAL 

routine) 146 

EXIT operation, restrictions 147 

Expansion of edit word 206,209 

Extended binary-coded-decimal 
interchange code 

Code structure ..265 

Code table 266 

General information 25 

External subroutines 

Coding skeletons 149 

Requirements and restrictions ..147 

Use of registers 147 

Use of indicators 147 
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Extra input buffer 

Storage reservation 334.1 

Factor 1 and Factor 2 108 

Factor size and results, relation- 
ship between 

Addition and subtraction ..123 

Division .125 

Multiplication 124 

Size of quotient 126 

Size of remainder 127,129 

Field description 

Input specifications category 57 

Input specifications entries ....78 

Output specifications category 167 

Output specifications entries 189 

Field indicators 

Example 100 

General ..31 

Input specifications entry S7 

Field length 

Addition and subtracticn ...123 

Arithmetic operations 123 

Calculation specifications entry 110 

Card-dccument print field .196 

Control fields .88 

Division 126 

Factors and result fields ............111 

In COMP operations 138 

In LOKUP operations 157 

In HOVE operations 132 

Input fields 80 

Matching fields ..90 

Multiplication . . 124 

Remainder (division) ......129 

Field location entry 80 

Field name 

Factors 1 and 2 (calculations) 108 

Input specifications entry 82 

Output-format specifications 

entry , 192 

Result field (calculations) 110 

Field-Record Relation 91 

Field selection (output) ..190 

Fields matching 

Dual definition of fields 81,83 

Entries in input specifications ....93,94 

General ....42 

Input specifications entry .......89 

MR indicator 35 

Points to note 91 

Processing seguence 43 

Fields used in BAL subroutines 147 

File description specifications 51 

Examples .....54 

Specifications summary 314 

Summary of functions 12 

File designation 52 

File extension specifications .160 

Specifications summary 321 

Summary of functions 13 

File identification 

Input specifications ......57 

Output-format specifications 167,170 

File identification and control 

Example 177-180 

File matching 

Entries in input specifications ....93,94 



Example 45,46 

General ..42 

Matching fields 89 

MR indicator ...43 

Processing seguence . . . . 43 

File name 

File description specifications 52 

Input specifications 57 

Output-format specifications 170 

File priority 

Card-type seguence 57 

Matching of files 42 

Processing seguence 43 

File type 

Definitions ......24 

File Description Specifications 

entry 52 

Files--def inition of .....24 

First-page indicator 

Description 35 

Point to note ...176 

Fixed dollar sign .......208 

Floating dollar sign 208 

Form type specification ...50 

Format of data 

Alphameric fields 269 

Numeric fields 269 

Packed-decimal ............270 

Format of RPG control card 334 

Format of Sterling fields 

Control card entry <..-. 334.1 

Format of table name in RLAEL line .....161 

Forms advance ....184 

Forms overflow 

Before totals — programming tip .294 

Branching from detail to total 

time calculations 144 

Delayed to end of control group 292 

OF/OV indicators, general ...36 

OF/CV indicators, output 

specifications 180-189 

Program logic, overflow output ........29 

Skipping, points to note .........173,174 

Forms skipping .172,173 

From entry (input specifications) 80 

Function table 

Calculation specifications entry 150 

General 149 

Use 155 

Function table containing several 
functions per field 

Example ....165 

Points to note for ICKUP 

operations 157 

Programming tip 284 

General indicators ...32 

General information on programming 

with RPG 24 

General logic flow ..26 

General registers 312 

Generating the object program 9 

GOTO (branch to — within RPG) 

Branching between detail-time and 

total-time calculations 141,143 

Branching within RPG ...141,142 

Operation code 142 

Significance in RPG logic 31 
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Group- in die at ion 

Examples 184, 190,221 

L1-L9 indicators 36 

Programming method .176 

Programminq tip .........272 

Special considerations en 

"run-in" 37 

Group-printinq 

Examples 177,200,221 

Programming method .......176 

H1/H2 indicators 

Example 100 

General 34 

Points to note 98 

Half-adjust 

Calculation specifications entry 111 

Examples 113 

In Move operations 132 

In MVR operations 129 

Half -byte 265 

{see also Figure 01, IECDIC 
table) 

Halt control 

Control card entry 334 

Halt indicators 

Example 1C0 

General 34 

Points to note 98 

H/D/T entry 170 

Heading cards 84 

Heading lines 

Input data, description ..83 

Input data, example ....85,86 

Output data, description 198 

Output data, example 199 

Heading time 

Program logic cycle ...26 

Type code 170 

Hexadecimal notation ..265 

(see also Pigure D1, EECDIC 
table) 

Hierarchy of indicators 39,40 

High indicator 

Calculation resulting indicator ..115-117 

Field indicator (plus) 97 

In Compare operations ..137 

In LOKUP operations 151 

In Test Zcne operations 139 

Identification of programs 

Object program cards 334.2 

User's identification 50 

Indexing: analyzing and forming 

fields position-by-position 277 

Indicator hierarchy 39,40 

Indicator settings — proqram loqic 

flow 26 

Indicator summary 313 

Indicators 

01-99 32 

1P (description) ...35 

1P {points to note) 176 

General 31 

H1/H2 (description) 34 

H1/H2 (example) 100 

H1/H2 (points to note) 98 

L0 (control-level indicator) 104 



LO (description) 38 

L0 (points to note) 176 

L1-I9 (considerations on 

"run-in") 37,27 2 

L1-L9 (control-level indicator, 

calcs) 104 

L1-I9 (control-level indicators, 

input) ...87 

L1-L9 (description) ...36 

L1-L9 (relationship with 

matching-f ield indicators) 44 

LR (control-level indicator, 

calcs) 104 

LR (control-level indicator, 

input) 87 

LR (description) 38 

MR (common error) 263 

MR (conditioning indicator, 

calcs) 10 5 

MR (controlling stacker 

selection) .172 

MR (description) 35 

MR (indicator hierarchy) 39 

MR (matching fields) 89 

MR (matching of files) 43 

MR (output indicator) 175,176 

MR (relationship with control- 
field indicators ) ..44 

OF/OV (branching within RPG) 143,144 

OF/OV (description) 36 

CF/OV (dual-feed carriage) 187 

OF/OV (forms-movement control) ...173,174 
OF/OV (output indicators, 

examples) 184, 188 

OF/CV (output indicators, field 

description) 189 

OF/CV (output indicators, file 

identification) 180-183 

OF/OV (program logic, overflow 

output) 29 

Use of, in external subroutines 147 

Zero-or-Blank/Egual (Compare 

operations) 137 

Zero-or-Blank/Egual (Field 

indicator) 98 

Zero-or-Blank/Equal (LOKUP 

operations) 151 

Zero-or-Blank/Egual (Point to 

note) 176 

Zero-or-Blank/Egual (relationship 

to Elank After) 195 

Zero-or-Blank/Equal (resulting 

indicator) 115-117 

Zero-or-Blank/Egual (Test-Zone 
operations) 139 

Indicators, as affected by Blank- 
after 

Field indicators 99,101 

General 195 

Program logic flow 30 

Resulting indicators 115,139 

Input-card data 

On same line as constant data ........301 

Input files 

Definition of term 24 

File type (File Description 

specifications) 52 

Input specifications (general) 56 
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I/O devices 10 

Stacker selection 77 

Input specifications . 56 

Specifications summary 315 

Summary of functions 12 

Input units, specifying ..53 

Integer 81,111 

Interpreting 

At total time 28 

Output-Format Specification 

(cols. 4 1-43) 196 

Program examples 240,253 

RPG function 8 

Sample entries ....201 

Introduction 7 

Introductory program example 14 

Inversion of zone and diqit 81 

Invoicing, program example 243 

I/O device assignment ....53 

IOCS (Input/Output Control System) 7 

L0 indicator 

Control level indicator, 

calculations 104 

Description 38 

Points to note 176 

I1-L9 indicators 

Considerations on "run-in" 37,272 

Control level indicators, 

calculations 104 

Control level indicators, input 87 

Description ...36 

Relationship with matching-f ields 
indicators 44 

Last-card indicator- — see IE 
Indicator 

Last-record indicator — see IB 
Indicator 

Leading zeros in specifications 

fields 50 

Length of table entry .161 

Second (alternating) table ..162 

Line number 50 

Listing 

Example 190 

Points tc note 174 

Program listing ..328 

Listing control 

Control card entry 314 

Literals 

Calculation specifications 108 

Definition 25 

Loading of tables 15C,160 

Logic flowchart ..27,327 

Logic flew, description 26 

Lookup-up operations (table 
look-up) 

General introduction 149 

LOKUP operation code 150 

Performance and results ..154-157 

Points to note .157 

Use of resulting indicators 116 

Low indicator 

Calculation resulting indicator ..115-117 

Field indicator (Minus) 97 

In Compare operations 137 

In LOKUP operations ,...151 

In Test Zone operations 139 



LR indicator 

Control level indicator, 

calculations 104 

Control level indicator, input ...... ..87 

Description 38 

M1, M2, M3 89 

Machine requirements 9 

Machine units and features 
supported 

Processing of object program 260 

Program generation .260 

Machine units reguired 

Processing of object program ....260 

Program generation ,260 

Ma jore-minor control — programming 

tip 297 

Matching fields 

Dual definition of fields 81,83 

General . . 42 

Input specifications entry 89 

MR indicator 35 

Points to note 91 

Matching Qf card files 

Example 45,4 6 

General 42 

Matching fields 89 

Processing sequence ....43 

Matching-Record indicator — see 
MR Indicator 

Matching records 

Processing seguence, description 43 

Processing sequence, flowchart 43.1 

Maximum lenqth of 

Card-document print field .....196 

Constants 198 

Edit word 204,206 

Factors and result fields 111 

Fields in Compare operations ., 138 

Fields in LOKUP operations ....157 

Fields in Move operations ............ 132 

Fields used in addition and 

subtraction 123 

Fields used in division .126 

Fields used in multiplication 124 

Input fields 80 

Result field 123 

Table name in RLAEI line 161 

Messages (diagnostic) 328 

MHHZO (Move High-order zone to 

High-order ZOne position) 136 

MHLZC (Move High-order zone to Low- 
order ZCne position) 136 

Minimizing core-storage 

requirements 271 

Minus/Low indicator 

Calculation resultinq indicator ..115-117 

Field indicator (Minus) 97 

In Compare operations ..137 

In LOKUP operations 151 

In Test Zone operations 139 

Minus zero 

Result after Move operation 131,136 

MLHZC (Move Low-order zone to Hiqh- 

order ZOne position) .......136 

MLLZO (Move Low-order zone to Low- 
order ZCne position) 136 

Move operations 
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Examples 133-137 

General 131 

MEHZO 136 

MHLZO 136 

MLHZC 136 

ELLZC 136 

MOVE (Hove right-aligned) 132 

HOVEL (Hove left-aligned) 133 

Hove remainder 128 

Move zone operations 136 

MVR 128 

ME indicator 

Common error 263 

Conditioning indicator, 

calculations .......105 

Controlling stacker selection ........172 

Description 35 

Indicator hierarchy 39 

Matching fields 89 

Matching of files ..........43 

Output indicator 175,176 

Relationship with control field 

indicators 44 

MULT (multiply) 128 

Multiple-Card Layout form 163 

Multiple functions in one function 

table 16 5 

Programming tip 284 

Multiple output from single source 287 

Multiple-time output to cards dur- 
ing one program cycle 28,169 

MVR (Move Eemainder) 128 

Nature of the card-type sequence 

check .63 

Non-significant zeros 50 

Jot (N) specification 

Calculation ..105 

Input 70 

Output-format 175 

Number of print positions 

Control card specification 334.1 

Number of table entries per record .....161 

Number of table entries per table ......161 

Number (N) specification 58 

Numeric and alphameric — same field 
defined twice: 
Input specifications 83,80-82 

Numeric characters 

Data format 269 

Definition 25 

Numeric fields 

Data format ......269 

Definition 25 

Numeric literals 

Calculation specifications 108 

Definition 25 

Object program 9 

Object program identification 334.2 

Object program punching 

Control card entry .334 

Object program register usage ......... .312 

OF — see Overflow indicators 
Operating procedures — see the 

publication IBM, System/360, Model 

20, Card Programming Support, 

Report Program Gen erat or, Ope r at- 



ing P roc edures (Form C26-3800) 

Operation codes 

ADD 127 

CO MP 137 

DI V 12 8 

EXIT 146 

GOTO 142 

LOKUP ..150 

MHHZO 136 

M HLZO 136 

MLHZO 136 

HLLZO 136 

HOVE .132 

MOVEL ..133 

MULT 128 

MVR 128 

RLABL 14 7 

SETOF 140 

SETCN 140 

SUB 127 

Summary 119,325 

TAG 142 

TESTZ 139 

Z-ADD * 127 

Z-SUB 127 

Operation field entries 118 

Operation specifications 

Arithmetic operations 121 

Branching ....141 

Calculation specifications entry .....110 
Compare and Zone-Testing 

operations 137 

Move operations .131 

Setting indicators 140 

Summary 119,325 

Table Look-up operations 149 

Option (0) specification 59 

OR lines in calculation 

specif ications--programming tip 281 

OR relationship 

Between indicators, general .....32 

Calculation conditioning 

indicators 105 

Calculation conditioning indica- 
tors, programming tip 281 

File identification lines 183 

Output indicators (field 

description) 190 

Output indicators (file 

identification) 175 

Record identification codes 

(input) 70 

Space/Skip entries (output) 172 

Stacker select entries 78 

Types of OR relationship (input) 76 

Organization of this publication 11 

Output before first card is read 

Example 101 

Points to note 176 

Program logic flow 30 

Output card-fields: checking for 

blank before output 273 

Output files 

Definition of term 24 

File description specifications 52 

Input specifications 77 

I/O devices 10 

Output-format specifications .....167,171 
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Output-format specifications .....167 

Specifications summary 322 

Summary of functions 13 

Output indicators 

Conditions for DFC 187 

Controlling PAGE field . 193 

Field description specification .189 

File identification specification 

17a 

MB . 17 5,176 

Overflow indicators (file ident.) 

. ... . 18 2 

Overflow indicators (qeneral) ..180 

Output specifications 167 

Output units, specifying 53,169 

OV — see Overflow indicators 

Overflow 

Arithmetic overflow 123 

Branching from detail-time to 

total-time calculations 144 

Delayed to end of control group 292 

Detecting arithmetic overflow ...283 

Dual-feed carriage ...187 

Forms advance before totals 294 

OF/OV indicators, general 36 

OF/OV indicators, output specs ...18C-189 

Program logic, overflow output 29 

Seguence of output specifications 

168 

Skipping, points to note ...173,174 

Overflow indicators (OF/CV) 

Branching within RPG ....143,144 

Description 36 

Forms- movement control ..113,174 

Output indicators, examples 184-188 

Output indicators, field 

description 189 

Output indicators, file 

identification .18C-183 

Program logic, overflow output ...29 

Overflow-output time 

Forms movement 173- .174 

General ..26 

Indicators OF/OV 36 

Overflow signal and new heading 

card coincide ..191 

Program logic aspect 29 

Seguence of output specs ..168 

Significance of overflow 

indicators 180-183 

Overflow printing 

Dual-feed carriage ..187 

Forms movement 173,174 

Overflow indicators 180-183 

Overflow time — see overflow-output 
time 

Overpunches 

Arithmetic operations ...121 

Check for unwanted punches 273 

PAGE numbering 193 

Preventing 12-overpunch 299 

Sign removal 137,283 

TESTZ (Test Zone) 139 

Zone elimination .....206 

Packed data 

Arithmetic-operation data 122 

Data-format: packed decimal 270 



File extension specifications 

entry 161,16 2 

Input field restrictions ...89,90 

Input specifications entry .79,80 

Input specifications, exanple ....86 

Note (field length) ....132 

Output-format specifications 

entry 197 

Output-format specifications, 

example 202 

Table-input data 159 

Packed-decimal format 270 

PAGE 

Example (input) 86 

Example (output) 199 

Field-name restriction (input) 82 

Page numbering (input) 84 

Page numbering (output) 192,193 

Page number (of specifications 

forms) 50 

Page numbering 

Input specifications ...84 

Output-format specifications .........192 

Page overflow 

Branching from detail to total- 
time calculations 144 

OF/OV indicators, general ....36 

OF/OV indicators, output specs ...180-189 

Program logic, overflow output 29 

Skipping, points tc note ...173,174 

Page totals — programming tip 290 

PCU 

General information 7 

Selecting last card of a control 

group 28, 172 

Plus/High indicator 

Calculation resulting indicator ..115-117 

Field indicator (Plus) 97 

In Compare operations ...137 

In LOKUP operations 151 

In Test-Zone operations 139 

Plus zero 

Algebraic comparison ......138 

Field indicators (input) 97 

Pointers 

Calculation oriented ..279 

Input oriented ....272 

Output oriented 287 

Position entry (input 

specifications) 70 

Prebilling with inventory control, 

program example 222 

Preventing 12-overpunch 

Programming tip ...299 

Sign removal 137, 283 

Primary file 

File designation 52 

Hatching of files 42,44 

Hatching fields ......89 

Processing priority .........57 

Primary trailer cards — programming 

ti p 307 

Printer spacing chart 9 

Printing of constants, example 184" 

Printing of listing 

Control card entry 334 

Print positions 

Control card specification 334.1 
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Processing sequence of multiple 
files 

Description 43 

Flowchart .43. 1 

Program compatibility 13 

Program examples 

Introductory program example 14 

Invoicing 243 

Prebilling, with inventory 

control 222 

Sales commission report 216 

Program identification 

Object program cards 334.2 

User's identification 50 

Program listing 328 

Program logic flow 26,327 

Programming tips 27 1 

Calculaticn-oriented 279 

In put- oriented 272 

Minimizing core-storage 

requirements 271 

Output-oriented 287 

Protection against undefined card 

type, example 75 

Punched-Card Utility Programs 

General information 7 

Selecting last card of a ccntrcl 

group 28,172 

Punching only last card cf ccntrcl 

grcup 28 

Quotient 

Decimal places ...125 

Size of ...126 

Record-type definition 67 

Record-type identif icaticn 

Identification cedes ....69 

Input specifications entries 67 

Resulting indicator 69 

Record-type resulting indicator 

Assignment in input specs ............. 69 

During total-time calculations 280 

Record-type sequence check 
Input-specifications entry 

(cols. 15-16) 57 

Example .....59 

Nature of the check 63 

Records in an AND relationship — see 
AND relationship 

Records in an OR relationship—see 
OR relationship 

Registers 

Functions of general registers .......312 

Use in external subroutines 147 

Relationship between size of fac- 
tors and results (calculations) 
Addition and subtraction ............. 123 

Division 125 

Multiplication 124 

Size of guotient ., 126 

Size of remainder 127,129 

Relationship of total time tc card 

movement 28 

Remainder 

Sign of 129 

Size of 127,129 

Value cf 129 



Repetitive output 

Branching between dtail-time and 

total-time calculations 144 

Programming tip 287 

Result field contents, example .........112 

Result field specifications 110 

Resulting indicators 

Calculation specifications entry .....115 

Conditioning calculations ....104 

During total-time calculations 280 

Ge neral 31 

Tn arithmetic operations 123 

In Compare operations 137 

In L0KUP operations 151 

In Move operations 132 

Input specifications entry 69 

In Test-Zone operations 139 

Summary 118 

Warning 105 

RLABI (reference label) 

Operation code .147 

Programming tip 279 

Table names in RLABL lines 161 

RPG.... — if not listed: see spe- 
cific subject, omitting the pre- 
fix "RPG" 

RPG operations — schematic ..........10 

RPG program logic .26,327 

Rules for.... — see relevant subject 

Run-in 

Branching between detail-time and 
toal-time calculations ............... 143 

Indicators L1-I9 37,272 

Output before first card is read 30 

Points to note ....176 

Total-time output 30 

Total-time processing ................ .30 

Sales commission report, program 

example . 216 

Secondary file 

File designation 52 

Matching fields 89 

Matching cf files 42-44 

Processing priority 57 

Selecting input-file cards based on 
matching of files and/or calcula- 
tion results — programming tip ........306 

Selecting last card of each control 

group .....28 

Programming tip ....303 

Sequence 

Card-type seguence check ......57 

Checking data fields 42 

Checking single files 48 

Check sequence step-down ....233 

Collating sequence (altered) 267 

Collating seguence (standard) 266 

Comparison 138 

File description specifications 

entry 53 

File extension specifications 

entry 162 

Input specifications entry ..57,58 

Nature of the card-type sequence 

check 63 

Processing of multiple files 43 

Table data 162 
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Seguence of entries 

Calculation specifications 103 

File description specifications 52 

File extension specifications 160 

For punching and interpreting 196 

Input fields 79 

Input files 57 

Output fields . 192 

Output-f criat specifications 168 

Types of output record ...* 170 

Seguence of output specifications 168 

Seguence of tables 162 

Seguence specifications 

File description 53 

File extension ..162 

Input . ...57,58 

SETOF (set indicators off) 140 

SETCN (set indicators on) 140 

Setting indicators {by calculation 

specification) .140 

Sign removal 

By edit word .....205,206 

By Move-Zone operator ....137 

By zero-suppress specification 194 

Example 283 

Preventing 12-overpunch ....299 

Sign reversal — programming tip 283 

Signed fields 206 

Single-card total elimination 295 

Skip 172 

Skip After . .. 173 

Skip Before 173 

Slash-asterisk card 39 

Source deck 9 

Source program 9 

Space 172 

Space After 172 

Space Before 172 

Space suppress 173 

Special characters — definition 25 

Specification cards 9 

Specifications common to all forms 50 

Specifications summary 314 

Calculation 319 

File description 314 

File extension 321 

Input 315 

Output-format ..322 

Specifications types — summary ...12 

Split control fields 88 

Square root — programming tip 286 

Stacker selection 

AND and OB lines 78 

Based on status of HE indicator 43 

Input specifications entry .77,78 

Output-format specifications 

entry 170-172 

Selecting input-file cards based 
on Hatching of files and/or cal- 
culation results 306,307 

Selecting last card of control 

group ..303-305 

Restriction 28 

Stacking sequence of processed 
cards 

Control card entry ..334 

Standard collating sequence 26 6 

Standard graphics • 266 



Status portion of edit word 205,209 

Sterling- fields format 

Control card entry 334.1 

Sterling sign position 

Input specifications 57 

Output specifications ....167 

Storage reguirements 

Basic routines 255 

Control card entry 334 

Fields, literals, and indicators 256 

Input/output routines 256 

Processing of object program 255 

Processing routines ». ....256 

Program generation ......255 

Tips for minimizing 271 

Storage reservation 

Extra input buffer 334.1 

SUB (subtract) 127 

Subroutines 

Branching to external subroutines 

141,14 6 

EXIT operation code 146 

RLABL operation code 147 

Summary of indicators 313 

Summary of RPG specifications — see 
Specifications summary 

Summary punching 201,253 

Summary punching matching-group 
totals into primary trailer 
cards — programming tip ..307 

Symbols used in this manual 26 

Table-input cards 

Format 157 

Rules for creation 158 

Table look-up 

Alternating-table specifications .161,162 

Application example ..243 

Conditioning indicators ....150 

Creating table-input cards ....158 

Decimal alignment 150 

Example 162-166 

Field length .....157 

File extension specifications ........160 

Format of table input 157 

Function table ....149 

Loading tables ....150,160 

LOKUP operation code 150 

Look-up operations, general 149 

Packed data ....159 

Performance and results 154 

Points to note 157 

Resulting indicators 151 

Sequence of table data ....162 

Single table specifications ,...161 

Steps to implement look-up 150 

Table-input cards .....157 

Table names ....161,162 

Use of single table ...154 

Use of two tables 155 

Table name 

Use in external subroutine .161 

TAG (destination of a branch, 

within BPG) 142 

Terminology used in this manual 24 

Terms — definition of 24 

Tertiary file 

File designation 52,53 
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Matchinq fields 89 

Hatching of files 42-44 

Processinq priority 57 

Testinq calculation results 104 

TESTZ (test zone) 139 

Time requirements 259 

Timinq for the BPG proqram 259 

To entry (input specifications) 80 

Total-level indicators 

L0 indicator 38 

L1-L9 indicators 36 

LB indicator 38 

Total-printinq 

Examples 177,200,221 

Proqramminq method 176 

lotal time 

Output "Type" specif icaticn 170 

Points to note 176 

Proqram loqic cycle .26 

Sequence of calculation 

operations 103 

Sequence of output operations 168 

Total-time calculations 

Based en type of last precedinq 

card 280 

Conditioninq of calculations 104 

On "run-in" (proqram loqic) 30 

Prcqram loqic cycle 26 

Total-time output 

On "run-in" (proqram loqic) 30 

Output "Type" specification 170 

Points to note 176 

Proqram loqic cycle 26 

Sequence of operations 178 

Total-time processinq en "run-in" 
Branchinq between detail-time and 

total-time calculations 143 

Points to note 176 

Proqram loqic flow 30 

Proqramminq tip 290 

Trailer cards in primary file 307 

Translation table (altered collat- 

inq sequence) 267 

Turninq indicators on or off 140 

Twelve overpunch 

Arithmetic operations 121 

Edit word 204 

PAGE numberinq 193 

Preventinq 12-overpunch 299 

Siqn removal ...137,283 

TESTZ (Test Zone). 139 

Zero suppress 194 

Zone 71 

Type (H/D/T) , output specifications 

170 

Units to dozens: conversion 285 

Oniversal-total indicator (L0) 38 

Opdatinq tables 150 

Use of tables, example 162-166 



User-specified collatinq sequence 266 

Usinq RPG 8 

Variable-lenqth fields in one card 

type 277 

Whole number 81,111 

Z-ADD (zero and add) 127 

Z-SUB (zero and subtract) 127 

Zero — distinction from letter 26 

Zero 

Conversion (Field indicators) 97 

Minus zero 131 # 136 

Plus zero 138 

Zero elimination 

By edit word 206 

Zero suppress entry (output) 193 

Zero-or-Blank/Equal indicators 

Compare operations 137 

Field indicators 98 

Indicators, general 32 

LOKUP operations 151 

Points to note 176 

Relationship to Blank After 195 

Resultinq indicators 115-117 

Test-zone operations 139 

Zero suppression 

Affectinq decimal point 207 

By edit word 206 

Output specifications entry .......... 193 

Restriction 207 

Zone elimination 

By edit word 206 

By Hove-Zcne operations 137 

By zero-suppress specification .......194 

Example 28 3 

Strippinq of zones , ..79 

Zone, of record identification code 

71 

Zone punches in input fields: how 

to distinquish — proqramminq tip ......282 

Zone-testinq operations 139 

Zoned — when are fields zoned 206 

Zoned and unzoned positive field: 

control without control break ...275 

Zones 

Arithmetic operations 121 

Data formats 269 

Edit word 203,204 

Inversion of zone and diqit 79 

Hove operations 132-137 

Numeric input fields 81 

Packinq 79 

Paqe numberinq 193 

Record identification code 71 

Strippinq of zones 79 

Zero suppress ...194 

Zone elimination 206 
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